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8 1.0 INTRODUCTION 

0 Oe eee OF THIS PROGRAM a hg VERIFY THE COMPATIBILITY OF UP TO 16 

1 RKO6 OR RK 07 5 eek 's WHICH RK611/RKO6-07 SUBSYSTEMS 
2 (INCLUDING S ve WITH MULT TPLe YSTEMS). COMPATIBILITY IS 

3 DEFINED HERE AS ILITY OF _A ORIVE TO WRITE DATA WHICH CAN BE READ 

4 SUCCESSFULLY BY ACE 0 HER DRIVES, AND ADDITI L ABILITY OF A 


- 
DRIVE TO COMPLETELY OVER-WRITE DATA WRITTEN BY ALL OTHER DRIVES. 
NOTE: RKO& AND RKO7 DRIVES CANNOT BE MIXED FOR COMPATIBILITY TESTING. 


THE PROGRAM TECT_ THE FOLLOWING CONDITIONS WHICH MOST 
COMMONLY CAUSE Phe SAPATIBIL Y BETWEEN DRIVES: 


1. HEAD MIS-ALIGNMENT 

2. POSITIONER LATERAL MISALIGNMENT 

3. SPINDLE-CARTRIDGE INTERFACE RUNOUT 
4 
5 


Os be pe Be pe Pe Pe Bs Pee be Be Be Be Be Be Be 


WWE LEE LE LL ES CWWWWW 
VHOSOVEREGV- OGDEN LOVOSBITO LV ODOVE | 


- IMPROPER LEVELS OF WRITE CURRENT 
INCORRECT ADDRESSING OF READ/WRITE HEADS 


SECTION 6.2). 


UNEXPECTED ERRORS WILL BE REPORTED AS THEY orn. THE REPORT WILL 
INCLUDE A TEST NUMBER AND DESCRIPTION, CURRENT AND PREVIOUS OPERATIONS 
GOOD AND BAD TEST DATA, AND APPLICABLE DEVICE REGISTER CONTENTS. 


ee ee ee ee ee be ee ne ee ee be ee ee ee ee pe ee 


THE TESTING I Is N THO PASSES. IN PASS 1, COMPATIBILITY DATA 
PATTERNS atRi tT THE DRIVES UPON THE SAME DISK CARTRIDGE 
Pass Be OF eaeie aly y = FROM A Re DALE 15 DeMans TBATeD, ae 
WITH ite eit ett GHPARED” WITH EACH ers 
ABI Lit Y c opt ON, EACH DRIVES CAPABILITY TO 
OVE 1a. a me Spectre TESTED THE SECOND 
Pass Pica ION, THE ABOVE DEFINITIONS 

53 IN BOTH PASSES, THE DIRECTS T OPERATOR N THE AND 

SY UNLOADING DRIVES. vat § CARTRIDGE FR oRe BRS vE TO 

ep TESTING. ON E FOE SEE on ERNINA a SUMMARY £ 1s CE RENTED OF 

57 CSRPATIBIL TTY mye heeh "Se Helis THAT DRIVE. 

593 WITHIN THE VARIOUS TESTS OF BOTH PASSES, THE CAPABILITY IS PROVIDED TO 

60 LOOP ON CURRENT OPERATIONS, AND SWITCH REGISTER OPTIONS ARE PROVIDED 

b1 FOR A VARTE Y OF LOOPING, RUNNING, AND REPORTING MODES (SEE 

63 

64 

65 

66 
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2.0 HARDWARE REQUIREMENTS 


THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RKO6-07 DRIVE COMPATIBILITY 
PROGRAM, FOR EACH SUBSYSTEM WHICH MAY BE PRESENT: 


PDP-11704, (05,10 MFG. ONLY), 20,30,34,35,40,45,50,70, OR PDQ 
16K MEMORY 
CONSOLE TERM Na 


ERMI 
RK611 CONTR 
1 7 8 Roe RKO7 DISK ORIVES PER CONTROLLER 


TION, A SINGLE RKO& DISK CARTRIDGE IS REQUIRED WHICH MAY BE 
ED IN Si THER 20 OR 22 SECTOR FORMAT, ON A RELIABLE WELL-ALIGNED 
IVE. THIS CARTRIDGE WILL BE MOVED FROM DRIVE TO DRIVE, (ON UP 
RIVES) ON EACH OF TWO PASSES. 


I 
T 


3.0 PRELIMINARY PROGRAM REQUIREMENTS 


BEFORE RUNNING THE RKO& DRIVE COMPATIBILITY PROGRAM, THE SUBSYSTEM(S) 
UNDER TEST SHOULD BE_ CAPABLE OF PASSING THE CONTROLLER DIAGNOSTICS 
DRIVE DIAGNOSTICS CZR6H-CZREJ, Ai THE 

ATION PROGRAMS CZR6M-CZREN. IN ADDITION, _THE 

CARTRIDGE MUST BE FORMATTED IN 20 OR 22 SECTOR FORMAT USING THE PACK 
pote | TER C2ZR6L, OR EQUI 


ee ee ee ee ee he ee ee 
br tr dat ha fe te eat br tt eg a OS 


ww 
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4.0 GENERAL PROGRAM CONSIDERATIONS 


furore 
QO0000W 
Wnh--Ow 


eee - OOO 
NEWw-ODDIEAE 


4.1 SYSMAC 
Pas LRoanan USES PORTIONS OF THE SYSMAC DIAGNOSTIC SYSTEM MACRO 


4.2 XXDP 


THIS PROGRAM MAY BE LOADED UNDER XXDP, AND MAY BE RUN IN DUMP MODE 
A MANUAL INTERVENTION AND LACK OF END-OF-PASS HOOKS, THE 
PROGRAM IS NOT XXDP CHAINABLE. 


piarbntiiathntns oh 4 4h oh ah 
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217 
218 
sip 4.3 ACT 
gs) THIS PR Pas RAM MAY B LORDED UNDER ACT AND MAY BE RUN IN DUMP MODE ONLY. 
S NOT CHAINABLE UND T. 
ee3 
ee4 
ees 
sce 4.4 APT 
ee8 THIS PROGRAM MAY BE LOADED BY THE APT SYSTEM, BUT MAY BE _ RUN IN 
so PROGRAM (DUMP) MODE ONLY. IT CANNOT BE RUN IN APT SCRIPT MODE. 
231 
232 
S33 4.5 DUAL-ACCESS 
235 THIS PROGRAM DOES NOT UTILIZE THE DUAL-ACCESS OPTION IN ANY WAY IND 
236 ALL _DRIVES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT atCH IS 
237 NOT IN USE. 
238 
ES 
Sus 4.6 MEMORY MANAGEMENT 
243 MEMORY MANAGEMENT IS NOT UTILIZED IN THIS PROGRAM. IF IF IS 
Suc INSTALLED, IT IS DISABLED BY THE PROGRAM. 
e46 
247 
sus 4.7 MEMORY PARITY OPTION 
250 IF PARITY MEMORY IS INSTALLED, MEMORY PARITY TRAPS ARE DISABLED BY THE 
251 PROGRAM. 
ese 
2$3 
eS4 
Se 4.8 BAD SECTORS 
2s7 ie bist OF _ SECTORS ne a F cA ernie 33 OBTAINED FROM a | FIRST 
3 Bere reac en case ey URE REET TITT pel NS Naf 
260 SOE" A THe aa TOF 19.6 FIRST TBASs. ALL DATA ERRORS SCCURTNG IN 
sph ’ THe PROGRAM ARE T@NORED- fF THEY OCCUR IN SECTORS DESIGNATED AS BAD. 
263 
e264 
55 4.9 EXECUTION TIME 
267 THE TOTAL TIME R GUIRED TO RUN_ THE DRIVE COMPATIBILITY. PROGRAM IS 
268 DIRECTLY PROPORT! TO THE NUMBER OF DRIVES TO BE TESTED AND 


e693 REQUIRES ABOUT 8- 10 NATNUTES PER DRIVE. 
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5.0 PROGRAM LOAD MEDIA 


THIS PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 
OR FROM THE ACT OR GPT SYSTEMS OR FROM ANY MEDIA SUPPORTED BY XxXDP. 


6.0 PROGRAM OPTIONS 


6.1 STARTING ADDRESSES 


200 - RURRING Ag oF “Pass ARB PRES 20 Ast re enner TER ie 


ADDRESS 
VECTOR o @NO PRIORITY, 7 BO "MILL 8 SAUTORATICALLY y DETERMINE nate 


BAIUEE rb°SP*Rcofl YRESTBE™ on fl erie mete, 


an” RH Me WifcH RESIDE ON THIS POP-11 SYSTER 
VECTOR, BND 2 AND PRIORITY OR BCH HSUBSYSTER m On THIS” S" sySTen, A ngs 
ore R SUB 
PACH 


SYSTEMS, TAND THE DRIVE(S) WHICH WILL BE TESTED PON 


220 - THF, Hing ™E oSIBITL ARORERE 2 ofr E°BGo. 2, Meh 


NTERRUPT 


BASE 
ve 1ohe PS B's oe Tee hae OR BGM URRYSTER ON, Tuts SYST, AND 


ae SUBSYS AND THES DRIVE(S) WHICH WILL BE TESTED ON 


6.2 SWITCH REGISTER OPTIONS USED 


S PROGRAM IS DESIGNED TO ALLOW THE THE HARDWARE SWITCH 


AP akbuede a a Taot PRE ERY ok SUPPORTED SoFTHARE Sai TCH REST a TER 
Me + emeanate OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS 


SRE Caer? 


BIT OPTION 
15 HALT ON ERROR 
14 LOOP ON CURRENT TEST 


SEQ 0007 


TS 
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13 INHIBIT ERROR REPORTS 

le REPORT DESCRIPTION ONLY, ON ERRORS 

11 UNUSED 

10 BELL ON ERROR 

03 LOOP ON ERROR 

08 APPLY Y_ RANDOM STALL BETWEEN OPERATIONS 
Be 00 TYPE BAD SECTOR FILES (BSF’S) AT START 


7.0 RUNNING THE PROGRAM 


43 THE PROGRAM HAS BEEN LOADED INTO CORE (IN A GIVEN SYSTEM 
THERE ARE MULTIPLE SYSTEMS) THE FOLLOWING STEPS MUST BE TAKEN TO RUN 


THE PROGRAM: 


SEQ 0008 


IF 


1. INSURE THAT ALL DRIVES TO BE TESTED ARE POWERED UP AND SINGLE 


PORT SELECTED. 
2. LOAD THE DESIRED START ADDRESS. 


3. SET ANY DESIRED BITS IN THE HARDWARE SWITCH REGISTER 


PRESENT). 
4. START THE PROGRAM. 
S. FOLLOW ALL INSTRUCT 


I 
THE MANUAL _INTERVE 
MULTIPLE SYSTEMS (IF THERE ARE ANY) 


8.0 OPERATIONAL DIALOGUE 


THIS SECTION ers THe OPE C OR TERMINAL DIALOGUE THROUGH WHICH | 
aa 2 THE SELECTION tee ae AND_T 


AND MOVEMENT OF THE TES 
Tihity Is 15 USED DEPENDS UPON THE STARTING 


eye abt 


CART IgCE Erol tae” mG DIALOG 


IN THE FOLLOWING DISCUSSION AND IN THE PRINTOUT OF 
VES TO BE TESTED WILL BE REFERRED TO BY A LETTER AND 
(OPERATOR ASSIGNED) 

NUMBER ON THAT SUBSYSTEM. FOR EXAMPLE, DRIVE C6 


DRI 

LETTER IS THE YSTEM LETTER NAME 
NUMBER IS T IV 

REFERS TO DRIVE 6& ON SUBSYSTEM 


yest RESULTS 
NUMBER 
AND TH HE 


CIF 


ONS TYPED BY_THE PROGRAM PERTAINING TO 
NTION RauTReD, AND THE ALTERNATE USE OF 


HE 
T 


THE 
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8.1 DIALOGUE FOR ADDRESS 200 START 
THIS STARTING ADDRESS MAY BE USED FOR AUTOMATIC DRIVE SIZING AND 
DEFAULTING OF PARAMETERS, WHEN THE ORIVES RESIDE ON ONE SUBSYSTEM 

Y. THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS: 

CZR6QB0 - RKO&-RKO7 DRIVE COMPATIBILITY PROGRAM 

HEN, THE DRIVES ON THE SYSTEM ARE AUTOMATICALLY SIZED, AND ALL 
Ext eet ing DRIVES WILL BE ED FOR TESTING. THE PROGRAM TYPES THE 
DRIVE LIST, AS IN THE FOLLOWING EXAMPLE: 
DRIVE TYPE 6<CR> FOR RKO6, 7<CR> FOR RKO7: 

THE OPERATOR MUST TYPE EITHER A &<CR> OR A 7<CR> 

DRIVES = 2,5,7 


THe PROGRAM NOW PROCEEDS WITH PASS 1, AND ‘he THE OPERATOR IN THE 
MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4 


oe NOTE THAT THERE IS ONLY_ONE SUES YSTER ON AN ADR. 200 STAR 


ND S NAMED SUBSYSTEM A. THE DRIVES IN THE ABOVE EXAMPLE WOULD at 
REFERRED TO AS A2,AS,A7 IN THE TEST RESULTS PRINTOUT AT THE END 


8.2 DIALOGUE FOR ADDRESS 204 START 
THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS MORE 
THAN YSTEM, BUT IT MAY ALSO BE USED WHEN THERE IS JUST ONE 
Subse Ten cTOree) TO SPECIFY DRIVES TO TEST AND NON-DEFALULT PARAMETER 


THE PROGRAM IDENTIFIES ITSELF AS FOLLOWS: 

CZR6Q@B0 - RKO&-RKO7 DRIVE COMPATIBILITY PROGRAM 
THEN, THE ore ASKS THE OPERATOR FOR THE DRIVES Phy BE TESTED ON 
EA THE 6 SUBSYS SUBSYSTEMS (STARTING WITH THE NAMES RANGE 
FROM SUBSYS A TO SUBSYS P. THERE COULD BE UP TO 16 *cUBSYSTENS. WITH A 
DRIVE ON EACH ) 

DRIVE TYPE 6<CR> FOR RKO6, 7<CR> FOR RKO7: 

THE OPERATOR MUST TYPE IN 6<CR> OR 7<CR> 

SUBSYS A DRIVE(S) = 


he Seton THEN TYPES THE DESIRED DRIVE NUMBERS, AS IN THE FOLLOWING 


SEQ 0009 


EO ———— OOOO ee 
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SUBSYS A DRIVE(S) = 2,5,7 


THE PROGRAM THEN VERIFIES THE DRIVE NOS. BY TYPING : 


WILL TEST DRIVE‘S) 2,5,7 ON SUBSYS A. 
NEXT, THE PROGRAM ASKS THE FOLLOWING QUESTION: 


SEG 0010 
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IS THERE ANOTHER SUBSYS (Y OR N <CR>)? 
THE OPERATOR TYPES Y<CR> OR N<CR> (IF JUST <CR> IS TYPED, THE 


ate eal ASSUMES THA vba a TYPED) « s He THE OPERATOR TYPED A, THE 
PROGRAM PROCEEDS WITH pass 


REx eB oR TNE RonBERe BP doe crd0H8 a rnaliek ORoTHE AEXT SuBsy Seat 


(SUBSYS B) AS FOLLOWS 
SUBSYS B DRIVE(S) = 
THE OPERATOR TYPES THE DRIVE NUMBERS, AS IN THE FOLLOWING EXAMPLE: 
SUBSYS B DRIVE(S) = 2,3 
THE PROGRAM THEN VERIFIES THE DRIVE NOS. BY TYPING : 
WILL TEST DRIVE(S) 2,3 ON SUBSYS B. 
NEXT, THE PROGRAM WILL ASK : 
IS THERE ANOTHER SUBSYS (Y OR N <CR>)? 
ANE AbwAtRING SuBeY STEMS UNTIL ALL HAVE BEEN SPECIFIED, OOF 
NEXT, THE PROGRAM ASKS FOR THE LETTER NAME ASSIGNED TO THE SUSSYSTEM 
15 BE TESTED NEXT : 
TYPE NAME OF NEXT SUBSYS TO TEST (A-P) : 
THE OPERATOR RESPONDS, AS IN THE FOLLOWING EXAMPLE : 
TYPE NAME OF NEXT SUBSYS TO TEST (A-P) : A 
SE ae ae o Peg na He Ofna Gn Foon, SER 
TERRUPT PRIORITY FOR T 
ear ee oy Soe ot The CURRENT NA NEL PH VALUE TYPEL AND THE 
cR> hey OPPORTU ETER IS Rot CHAN WHEN The procion 


4 THEE FOL LLOWING G DEFAULT VAL. UES Hane Désr IGNED: RK611 BUS 


AB Rese = i ae AND PRIORITY = S. E 
FOLLOWING EX Ex ZANPL 6 SHOUS yy PRINTOUT WHICH ONLY THE VECTOR WAS 
RK611 BUS ADR = 177440 NEW = 
RK611 VEC ADR = 210 NEW = 240 


R 
RK611 PRIORITY 5 MEW 
THEN THE PROGRAM PROCEEDS WITH rare AND DIRECTS THE Cea T OS IN_THE 
MOUNTING OF THE PACK, AS DESCRIBED 1h SECTION 8.4. _AT THE COMPLETION 
OF PASS } ON THE SUBSYSTEM, THE PROGRAM WILL INFORM THE OPERATOR HOW 


SE@ 0011 


— 
OE 


keneee Ve DR_CPT PROG fool a 30( 1046) 
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TO PERFORM PASS 1 ON THE NEXT SUBSYSTEM. 


8.3 DIALOGUE FOR ADDRESS 220 START 


THIS SLE ie USED sree Seo" cf Hee ee 15_ MORE 
sUBSYS en co AL) TO aBbECirY rit TO N-DEFAULT 
VALUES, FOR PROGRAM” SBENTAFTES MOT SELE. AS 


CZR6Q@B0 - RKO&-RKO7 DRIVE COMPATIBILITY PROGRAM 


coat oan ABOvE (SECTION B-2), FOR THE SELECTION Or SUBSSTEN 
PROGRAR 


SPECIFICATION 
EBs Uftn Pass, ANO DI RecTe he abel kth ET bendi 


page AS DESCRIBED IN’ SECTI 


se" SIDGEST PORTE ScPRRERSADM oc EL eB rAl*ELPar ily Tif 


Pe ote D_IN STEPS, AT YAR TOUS. 
DISTANT LOCATIONS, BY MOVING THE T 7 paGK BND ein THE PRINTOUT 


T 
FROM EACH PASS ON EACH PDP-11 SYSTEM TRVOL 
8.4 PASS 1 DIALOGUE 


AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON THE 
CURRENT SUBSYSTEM (SECTIONS 8.1-8.2), THE PROGRAM INDICATES THE START 
OF PASS 1 AS FOLLOWS: 


#% STARTING PASS 1 ## 


THE PROGRAM TRUCT THE F Ret RIVE TO BE TESTED ON THIS 
SUBSYSTER, 8 peo on wee OPERATOR TO MOUNT THE TEST CARTRIDGE AND 
VE, AS IN THE FOLLOWING EXAMPLE: 


T_ PACK ON DRIVE Ae AND LOAD. 
TYPE R<CR> WHEN DRIVE READY: 


THE OPERATOR PERFORMS THIS TASK AND TYPES R<CR> WHEN THE DRIVE READY 
LIGHT Is, ON. THE PROGRAM PERFORMS PASS 1 FUNCTIONS ON THIS DRIVE (SEE 

5 CTION 9.1) AND THEN INSTRUCTS THE OPERATOR TO UNLOAD THE DRIVE AND 
MOVE THE PACK AS FOLLOWS: 


UNLOAD DRIVE A2 AND REMOVE PACK. 
TYPE R<CR> WHEN DONE: 


——————— 


SEQ O0le 





= 
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THE OPERATOR PERFORMS THESE FUNCTIONS AND TYPES R‘CR> AFTER THE PACK 
HAS BEEN REMOVED. 


IN M3 SAME MANNER, THE program piss TRUSTS THE OPERATOR IN THE MOVEMENT 
T REST OF THE DRIVES ON 


OF THE PACK THROUGHOUT THE CURRENT 
SUBSYS EM. WHEN THIS HAS BEEN COMPLETED, THE PROGRAM DOES ONE OF 

THINGS: on (1) ie THERE IS ONLY ONE SUBSYSTEM (FROM ADR 200 
START) T NS PASS oe BE 33 SECI TON 8.5). (2) IF THERE 
IS ANOTHER MSN a DIRECTS THE OPERATOR TO PERFORM 
PASS 1 ON THE FOLLOWS. (AND THEN HALTS) 


START AT ADR 204 FOR PASS 1 ON SUBSYS B 


(3) IF THERE ARE NO MORE DRIVES TO TEST IN PASS 1 ON ANY SUBSYS, THE 
PROGRAM DIRECTS THE OPERATOR TO pecin — 2 ON THE FIRST SUBSYS (SEE 
SECT. 8.5) AS FOLLOWS (AND THEN HAL 


START AT ADR 220 FOR PASS 2 ON SUBSYS A 


8.S PASS 2 DIALOGUE 


PERFORM PASS 2 EITHER 


OPERATOR RETURNS TO THE FIRST SYSTEM TO 
Bs AFTER THE SELECTION OF 


THE M 
THROUGH THE D OF _THE BOR START, 
PARAMETERS BEEN _ COMPLETED ACCORDANCE WITH THE 
DIALOGUE OF T HE ADR 2 20 81 ART (SEE SECTION 8.3). IN EITHER CASE, THE 
PROGRAM INDICATES THE START OF 3 Gy SyPING 


## STARTING PASS 2 ## 
THE PROGRAM THEN DIRECTS THE orenatoe 


AND LOADING OF ALL DRIVES ON THE F 
As DESCRIBED FOR PASS 1 (SEE SECTION 


IN THE UNLOADING, PACK MOVEMENT 
ST SUBSYSTEM, IN’ THE SAME MANNER 


HOWEVER, AFTER S é Mia ve (SEE STERR f .2) IS COMPLETED ON A 
GIVEN DRIVE NT TEST RESULTS OR, THAT DRIVE ARE TYPED. THE 
DETAILS ars” ARE R SECTION 10, AFTER THE 


DETAI ts OF THE TESTING ORRE DESCRIBED. 


WHEN PASS 2 EN C TED FOR ALL DRIVES THE FIRST SUBSYSTEM 
PROGRAM” DOES. ONE aan THthose OnE The BURRS ONE 

csyStEn (FROM ADR ono START) OR IF ALL DRIVES ON ALL 

BEEN TESTED IN PASS 2 (FROM ADR 220 START), THE ENT 

REPORTING HAVE BEEN COMPLETED. AND THE PROGRAM’ TYPES: 


*#% END OF TESTING #* 


SEQ 0013 


ee 


egreaec O. 1’ DR CPT PROG MACY11 30(1046) O28-DEC-77 11:48 PAGE 1S SEG 0014 
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(2) IF THERE IS ANOTHER SUBSYSTEM HOWEVER, THE PROGRAM DIRECTS THE 
TOR TO PERFORM PASS 2 ON THE NEXT SUBSYSTEM AS FOLLOWS (AND THEN 


COOrrrrc 
b= be 
OO NOW cw 
: 
Ps] 


START AT ADR 220 FOR PASS 2 ON SUBSYS B 
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620 
ps 
bss 8.0 DESCRIPTION OF TESTS 
625 THE MAIN FUNCTIONAL Bueeeer ert INT St 

ORT I Ente A IN ERR PBRINTS NT Bee T “0 
es? RUBE ES + FOF HE OBE TOR Nour BEA! bGde Hon at Nes DE rAesebeSiet Bt selfing 
625 BedchiFtion 6 OF Pass t Eno Bass as naa 
631 IN THE FOLLOWING SECTIONS TABLES A-G ARE REFERRED TO. IN THESE 
632 TABLES, DRIVES ARE NAMED FROM 0-17 FOR ILLUSTRATIVE PURPOSES AL THOUGH 
633 THE DRIVES ARE NAMED THE FOLLOWING N ACTUAL SITUATION 
p34 AD,AL, Ae,...80,81,B2,...CO,Ci,Ce,... ETC. (SEE SECTION 8.0). 
636 
637 
Es 
ay" 9.1 DESCRIPTION OF PASS 1 TESTS 
642 IN THES BASIC READ/WRITE CAPABILITY OF EACH DRIVE IS 
643 DenoneTRaTe COMPATIGILITY DATA PATTERNS ARE WRITTEN BY ALL 
bua UPON tHeon SAME TEST DGE. 
Bue THE SEQUENCE OF OPERATIONS PERFORMED ON EACH DRIVE IS AS FOLLOWS: . 
648 1. TEST 1 - MOUNTING OF TEST CARTRIDGE FOR PASS 1 
649 OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THe 
650 HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.4 
652 2. Test. ec Cc /WRITE DATA PERF 
653 A ie 2 Eee A” * DATA 
654 ParreRn , ar THE F THIS DRIVE (SEE 






S yeni He Bice’ Penta ne eet 
ee9 are M it "Or HYGR ONG Co gh ieee Bie cATTERN, cme 


660 REQUIRI OF PRECOMPENSATION, WHEN E 


e - ct Sige ti ee 


665 SURF AC USING HE PATTERN IN 


B66 TABLE G. LOG tee BRive Jo" Uses HOR LOGICAL ve Us are 
B68 FROM EA EACH BRRvE ts UN UNI Horo, 19, BEEN a a 
670 

B55 ECTORS. ARE HERTTIEN Wt fy {Ho DYSTINGT Cri INDER BLOCKS. ei 
674 16 CYLINDERS ZONE DATA IS 
674 WRITTEN? "16 BE LATER OBVERMRITT EN IN URR ASS DURING THE 
675 OVERWRITE TEST. IN THE LAST 16 CYLINDERS OF “tach CURRENT 


} 
TE 


CZR6QBO RK& DR CPT PROG MACY11 30(1046) O2@-DEC-77 11:48 PAGE 17 SEG 0016 
CZR6Q0B.P11 O02-DEC-77 10:46 


brs Gavi reNHSCBE ad THE INNERMOST ZONE) COMPATIBILITY DATA. Is 
681 SARE ek Mee nPOL TERI YEERTBUE EMBACIRETEBIGONS SIL TROEE 


eas SFT IED Gi BeT SMa Roeeane hr Sikltbe inca” Posi She 
686 ; 

bes KBPOENGARG SN-INEE® RLGBa UGe "Brads BETAG"EccRE5, $6778! 
eat Be Laty sae PAN 1ST tert ano” 2},22;ocTht FOR ont 
b3e SELF-TESTING IN PASS 2 (SEE SECTION 9.2). 

694 THE BASIC LAYOUT OF _A TYPICAL YUINDER Bt. 

69S RE T SHOWN Ss ILITY K FOR 
bao oe aa ee Ee ent a INS HBC aca 
E99 ay a P Sena gee He 
oot 5 te Se MISSING Pa jetta Ts fi OEVER. ‘unt ene ks RESERVED 


S INSURES THAT DATA 


re om , SH Lohan otieettings east tan” Fear 


ONE TO. ~ CURRENT t 


O& Zz 

7, Gare Taeomes DT SYPPERELY ELD OSSTTTOM IN ESET #8 
g03 CARTRI 

a Ot at eM a Re 
7 PIE SSbe SEES OOOH NG OBESE 


a ae a a = SS ee 
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9.2 DESCRIPTION OF PASS 2 TESTS 
IN PASS 2, THE ABILITY OF EACH DRIVE TO COMPLETELY OVERWRITE DATA 


WRITTEN 


BY ALL OTHER DRIVES AND TO READ DATA WRITTEN BY ALL OTHER 


DRIVES, IS TESTED. 


THE SEQUENCE OF OPERATIONS PERFORMED BY EACH DRIVE IS AS FOLLOWS: 


 - 


2. 


Test § = ROL TG OF TEST_ CARTRIDGE abn PASS @2 THE 
OPERATOR TS THE PACK_ON THIS DRIVE AND MANUALLY LOADS THE 
HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.5). 


TEST 6 - OVERWRITE TEST - NEXT, THE PROGRAM PROCEEDS TO 
TEST THIS cDRIVE: SN RTROLE POR THIS FIRST, THE 
QVERMRT Hs Sth teed HE D a) REPETITION 
Sinat nest iN. TABLE Eth off a DRIVE O 
OSes 0, YORD, OF ICAL DR OGICAL DRIVE 10 
USES WORD” 10, ETC. 
THEN, CYLI ITTEN IS FR BACK BY THIS DRIVE 
WI se het NG Ri: UES : 100 300, 
400, mS MICRO-INCHES 
iN ’E Bon” Serer DIR Rect 71100 SCANS FOR 
fran ER ( .) ‘ARI TH 3" y. AND. IF_ ONE 
Occ THE DR S DATA HAS NOT 
BEEN C LY IT Meir THAT ORIVE IS 
DECREMEN T AT THE NEXT 
SECTOR WITH THAT WITH ALL 
OF VE OF T OR EACH 
DRIVE IS T, WH 5 ING THE 
OVERWRITES. fF T (0,1,2) Ona AVERAGED OVER 
Get Sle> uetentrt” FREY Sor eh Ge tie Shows SPratt ie 
Braves Bro SYonebs Pan Vbanitne Bite’ 6b, 'GF 
Pass 2 ( N T 10.2). ACH SCORE IS 
FROPBRTaD VEN TOrrter eotREcPion By’ re c"cUmtenr Barve’ wuite 
SUCCE ULLY rhe a T WROTE OF THE nye a 
TA THE PRINTOUT REVEALS WHICH DRIVES ARE 
I IN WHICH A T OVERWRITE 
ONE st IVE’S DATA 


st 7 - DRIVE SELF-TEST - EVAL E 
DRIVE’S ABILITY TO WRITE AND READ ITS OWN DATA, AT VARIOUS 
TIONS THE . FIRST, Sect 4,1 18, AND 8 
IATE CYLI SHOWN IN E’F FOR’ THIS DRIVE AR 
WRITTEN WITH THE DATA PATTERN SHOWN IN TABLE B, FOR 
SURFACES. THEN, T SEC ORS, ARE AD WITH THE FOLLOWING 
OFFSETS APPLIED : " 400 600, 700 oo, 
900, 1000, 1100, 1200 MICRO-INCHES, IN EACH OFFSET DIRECTION 
HE PROGRAM SCANS FOR READ ERRORS OURING EACH READ, AND 
COMPUTES SCORE WHICH IS PROPORTIONAL TO THE FAILING OFFSET 


SEQ 0017 
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MAGNIT THEN, Rl ORES FOR ALL 4 SECTORS READ IN THIS 
CYLINDER BL Dae £8 COME UP WITH DRIVE 


OCK 
SELF-TEST Score FoR EACH ACE FOR EACH OFFSET DIRECTION. 
THIS SCORE Is OR LATER USE, TO BEC THE STANDARD FOR 
THE COMPATIBILITY DATA READS WHICH ARE TO FOLLOW. 


TEST 10 - corer JOILITY DATS READ T om - HAVING ESTABLISHED 
S ethan ie SC rts Re ee PROGRAM PROCEEDS TO 
T epee par y oate cule TTEN 


E). 
ay a Brie cide ito 
he, eh : Paoerad 00, 1200 
nN! T ee progra Scans 
ee AD at THAT 
THE 
Tat ae TED. eect 
PARE SCORE FOR EA a I KEPT, bAILE 
ATE Re THe. cone T 1 Poe SELF Test 
eye Mt 5 
OPORTT ee Itty OF 
SSFULLY T EN BY ONE OF 
(3 sie RIVES, Sepa T Ly FOR EACH 
PRINTOUT Re et ce AvOLVED IN Of STTUATION IN 
pe ve HAS D ULTY 1H NREABING THE DATS 
OF ONE OR SEVERAL OT 


T PACK IN 


THE. QVERURITE ‘ARO “COMPATIBILITY. Br 


ATA READ TEST 7 SCORES F FOR 
THIS DRIVE ARE CONVERTED Z ATOR 
UNLOADS THE DRIVE AND DISM MOUNTS THE PACK AS’DIRECTED BY THE 
Petts Bet y selenite 8.5), TO PROCEED WITH THE ABOVE STEPS ON 


SEQ 0018 


TNR ee ee 
—-OWONCTU EC 





Bw 
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10.0 PRINTOUT OF TEST RESULTS 
THE TEST ot ARE PrEATED AT THE END OF PASS 2 ON EACH Ooo he 


TEST ED. es Peau 4 Sect eo TO THE OVERWRITE TEST 
COMPA ipILity TA READ 


10.1 OVERWRITE AND DRIVE COMPATIBILITY DATA TEST RESULTS 
THE RESULTS OF BOTH THE OVERWRITE AND THE COMPATIBILITY DATA 


READ 
hid te gee ME Stn hi ERG OF “Passe 
eee UE OE Bt ne Cn ai 


PERFECT ORE = 1g) reer'p S ARE LISTED SEPARATELY 
TRACK ( ACE) OR EACH A OFF T DIRECTION, UTD AN OVERALL AVERAGE FOR 
ALL THREE TRACKS, THE CURRENT DRIVE, 1S’ PRINTED. 


IN THE —* NG EX "ere Bae 2 SYSTEMS, AND THE DRIVES BEING 
TESTED AO SAL ‘Ae BO? BS. THE TEST RESULTS FOR DRIVE Al ARE 


SHOWN BEL Oli: 
SCORES FOR DRIVE Al (O-l2 DEC.) : 


TRACK DRIVE OVRWRT OVRWRT READ READ 
NO. READ SCORE SCORE SCORE SCORE 
OFST- OFST+ OFST- OFST+ 

0 Ad le le le le 

0 SELF le le le le 

0 Ae * 7 * 6 le le 

0 BO ll le 11 11 

0 BS 3 le 11 11 

1 AD le 11 le ll 

1 SELF ll 10 le le 

1 Ae le ll ll le 

1 BO le le | 3 

1 BS le le 11 le 

e AO le le le 12 

2 SELF le le le l2 

2 Re 11 | 11 ll 

2 BO le le le le 

2 BS le le le le 

DRIVE Al OVWRT AVG = le 
DRIVE Al READ AVG = 10 
THE ABOVE EXAMPLE REVEALS A POSSIBLE COMPATIBILITY PROBLEM BETWEEN 
DRIVES Al AND A2. NOTICE THAT ON TRACK O, THAT THE OVERWRITE SCORES 
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EPTAB 
H AN 


Aste 


OW (7 OR LESS), AND THE PROGRAM NOTED THESE BAD 
RISK (#). 


SEQ 0020 
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11.0 ERROR REPORTING 


11.1 


TYPEOUT 


COMMON ERRORS 


THE FOLLOWING IS A LIST OF COMMON ERROR 
FROM THE RKO6 ORIVE COMPATIBIL 
SELF -EXPLANATORY. 


S 


= 
. 


oOnN OW ftw 


— 
Oo 


~ 
— 
. 


rr 
a 


~ 
Ww 


— 
= 


~ 
uw 


— 
i 


— 
N 


— 
@ 
. 


= 
wo 


ah) 
oO 


fu 
— 


UNIBUS PARITY ERROR 
NON-EXISTANT MEMORY ERROR 
NON-EXISTANT DRIVE ERROR 
UNIT FIELD ERROR 

SUBSYSTEM TIMEOUT 

SERCON PARITY ERROR 

DRIVE DETECTED PARITY ERROR 
AC LOW 

SPEED LOSS 

ILLEGAL FUNCTION ERROR 
PROGRAMMING ERROR 
NON-EXECUTABLE FUNCTION ERROR 
DRIVE TYPE ERROR 

FORMAT ERROR 

WRITE LOCK ERROR 

DRIVE UNSAFE ERROR 

SEEK INCOMPLETE ERROR 
CYLINDER OVERFLOW ERROR 
ILLEGAL CYLINDER ADDRESS ERROR 
DRIVE OFF TRACK 

DRIVE TIMING ERROR 


ME 


SSAGES WH 
ITY PROGR 


ICH 


GRAM. 


AC 
T 


CO 
HE 


MPAr Y 
ERROR 


ER 
S 


ROR 
ARE 


SEQ 0021 
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DATA LATE ERROR 

CONTROLLER TIMEOUT ERROR 

OPERATION INCOMPLETE ERROR 

HEADER VRC ERROR 

DATA CHECK ERROR 

WRITE CHECK ERROR 

DATA MISCOMPARE 

NO DRIVE RESPONSE - UFE AND NXD 

DRIVE ERROR WILL NOT CLEAR 

DRIVE STATUS CHANGE WILL NOT CLEAR 
ATTENTION BUT NO STATUS CHANGE OR FAULT 
ATTENTION BUT DRIVE NOT AVAILABLE 

ERROR WHILE GATHERING DRIVE STATUS 
MULTIPLE DRIVE SELECT 

HEADER COMPARE ERROR 

ERROR IN RECALIBRATE FOR RECOVERY 

CLEAR CONTROLLER DID NOT CLEAR ERROR 

NO ATTENTTON IN ATTENTION SUMMARY REGISTER 
UNSOLICITED ATTENTION 

UNEXPECTED DATA TYPE ERROR 

ATTENTION DID NOT RESET WITH CLEAR 
SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 
DATA LATE WHEN UNLOADING HEADER 
CONTROLLER ERROR WHEN DRIVER SERVICING 
RETRY UNSUCCESSFUL 

BAD SECTOR ERROR ON SECTOR NOT LISTED BAD 


SEG 002e 
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11.2 ERROR HANDLING 


eR taal erate BY THE PROGRAM CONSIST OF COMMON URES One tatoo 


FAIL 
yg SUBSYSTEM PUNE TAONS» AS WELL AS CERTAIN ERRORS UN 
aria BNO TEST. BER. eRe Poa ee QUT CONSISTS OF AN ERR 
DESCRIP ON AND dee od POSSIBLY F Lee BY HEADER LIES, COL 
AND REGISTER CONTENTS IN_ OCTAL. S__MuUCH 
ANTNGPOL REGI efER DATA AS POSSIBLE (FOR EXAMPLE, RK611 REGISTERS) 
GIVEN ERROR. OTHER ERROR REPORTS MAY CONSIST OF A 


ARE PORTED IN A GI 
SINGLE DESCRIPTIVE LINE. 


11.3. ERROR PRINTOUT EXAMPLE 
#* WRITE CHECK ERROR 
PREVIOUS COMMAND: 
RIVE CMND CYLNOR TRACK SECTOR WO CNT 
ee a wen 000016 ooo001 000000 175000 
0000 061566 
CURRENT COMMAND: 
RR PC 853060 CMND CYLNDR TRACK SECTOR WO_CNT 
Mi tSe 000131 O00016 ooooo1 000 
000000 be1866 
PACK ADDRESS OF ERROR (S) 3 


CYLNDR TRACK SECTOR 
000016 000001 000006 


Se 


..02 
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1919 
1020 | | 
1021 
1022 | 
1023 

1024 

1025 

1026 | 
1027 TABLE A 

SOO 8 cease Fegan arta ae is pt Be tol. ee Aeneas 

1029 

1930 BASIC READ/WRITE TEST SECTORS 

1032 

1o34 

1035 ADDRESS OF SECTOR ON EACH SURFACE (IN OCTAL) 

i8 DRIVE 

1038 NO. CYLINDER SECTOR 

1040 RKO&/RKO7 

BE a ee ar err te ARTE Oe” A, anim 

ip43 0 71444 0 

ipaq 1 e507 1444 e 

1045 2 62071444 4 

1046 3 62071444 % 

1047 4 62071444 10 

1048 5 62071444 12 

1049 b 62071444 4 

1050 ? 62071444 16 

ee ite 

ibes iB P557144 4 

1054 13 62271446 6 

1055 14 6227 1446 10 

1056 15 6227 1446 12 

1057 16 62271446 14 

1058 17 62271446 16 


MOe 
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TABLE B 
WORST CASE DATA PATTERN (REPEATS EVERY 16 WORDS) 
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St SesRzPuaseeesens 
8 ' BaF UNDO OR Oy 
~! Oe Bote oMmeeraun 

i] pS SS Ee ~—TMUNWw 
« : On 000—--00-0--4-4 
ai 
al 

:1 
2} 

{( OFUMTNWOROAUMNTWHwOK 
ol HA tt 
S| 
=i 


NOt. Orod- 


TWWF.OMO-UM MTMOKLOTO=UM 
CREE TS SSS Soto tet st ttoht tat 


Ooo0000 


Se Ree Kae Ree Kee Kem Keon Rem em leon Kem fee hee om Kam ham Kom hom bam hem Kom Kem beam om Nam kere om am Kam Team, ham, Reon Kem, heme Read 





Ss SSS SSS SSS i tsetse sees stents re 
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ROTATING 
CURRENT OVERWRITE CYL COMPATIBILITY CYL STARTING 
ZONE - RANGE BLK RANGE (OCT) BLK RANGE (OCT) SECTOR 
1 - CYL 0-77 CYL 0-17 CYL 60-77 SECT 0 
2 - 160-177 100-117 160-177 3 
3 - 200-277 200-217 260-277 rd 
4 - 300-377 300-317 360-377 13 
5 - 400-477 400-417 460-477 17 
& - $00-577 500-517 560-577 22 
7 - 600-632 600-617 eee 0 
1 - CYL 0-177 CYL 0-17 CYL 160-177 SECT O 
e- Ges 77 200-e 360-377 3 
3 - 400-577 400-4 560-577 7 
4 - 600-777 600-6 760-777 13 
S - 1000-1177 1000-1017 1160-1177 17 
& - 1200-1377 1200-1217 1360-1377 22 
7 - i400-14S6 1400-1417 oe 0 


SEQ 0026 


SEQ 0027 


BO3 
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17 20 21 
a 17 
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ot en a ee | 
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“—a- tit 


le +3 149 15 16 
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Sat tet 


mourns FUL ULM =O 
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7 10 11 
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ey 


’' ee itt Ww Ss 


ON =TOMUMUUMMNOT “nwo 
at a | ot 


MDONN TUAAUNTRMOOU 
ee a) 


TABLE D 


S 


TUNUON=OO=M0Uh UT 
“+1 a 


3 


MTO=UNNOhROUN=wTM 
a tet — 


SECTOR NUMBERS (OCTAL) 


2 


UMNOT —r 0M =FOuNNd 
eel 


MUTRMOONUNOOM ru- 
a 


BASIC CYLINDER BLOCK LAYOUT EXAMPLE 
(SHOWN FOR RKO6, USE CYL 160-177 FOR RKO7) 


0 


OmPOAR OT TUNMUIM=O 
et 


ODOOWDDOOJKRARARKRAR 


CYLINDER 


i 
w- | 
writ 
wai 
en ; O=-UMNTMWOKROAUMFT MOK 
zo ! 
~I 


TO-UMTMNOn wo MTWNO OVO AUMTNwW.OTo 
MMMAMMO Mors eee ee ey NANA UUNOODODDDNOOOK 
Gh hh dk ak dd a dd dd kd dd md a ed dd dd dd al ad dd dd 
Ed ad dd Od ad dd dd a dd a a a dd dd 


SEQ 0028 
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NOULWM-ONOUIE Wr O 


bh ep 


NOTE: THE ABOVE TABLE 
REFER TO TABLE C 


NUMBERS FOR 


60, 160,260, 360, 460, 560 
bb: 183: 668-308 4a: ees 
b5; 168,263, 369; N63, Ses 
4,164,264, 264, 464, S64 
b5; ibs; ° ’ »205 
67, 167,267, 367,467,567 
30: 1701870, ae 3) 
72; 172, 35h" Goa eo. 
73,173,273, 373,473,573 
ber toe? 75, Berge 5c 
76' 176,276, 376,476,576 
77) 177,277, 377,477,577 

GIVES CY 

TO OBTA 
HE RKO7. 


LNDER NULMBERS FOR THE RKO6. 
IN CORRESPONDING CYLINDER 


SEQ 0029 
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SEQ 0030 
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PRPS SERRE 
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.NLIST MC,MD,CND 
"LIST me 
[ENABL ABS,AMA 


;*##* REV OOS ### 


- RELKRAAAAAAREARASRAAAAARARAERARAARAAARAHARARRAAAAHREAKAAKRKELALREKE 
SerTL STARTING ADDRESSES 


:# 200 DEF T PARAMETERS AND RUN PASS i AND PASS 2 
:# 204 ELECT PARAMETERS AND RUN PASS 1 

le 220 SELECT PARAMETERS AND RUN PASS 2 

1 4 MEMORY DUMP ROUT 


2 
MTT TIT TOT errr ri ttterittt ti ttttittitittttitiititiiiititiiiiiite! 


STN=1 

. TITLE CZR6QBO RK& OR CPT PROG 
tT OIGT TAL EQUIPMENT. CORP 

+ ERAVHARD , aaas” 01754 


-% 
j #PROGRAM BY DAVE HOFFMAN 


 eTHIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
; ¥PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


-% 

$SwR=160000. ;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
$SWR= 163000 

- SBTTL OPERATIONAL SWITCH SETTINGS 

i SWITCH USE 

x 1s HALT ON ERROR 

3% 14 LOOP gh F R9 

; 13 INHIBIT ERROR TYPEOUTS 

:# 12 REPORT DESCRIPTION ONLY, ON ERRORS 

;* 10 BELL OR 

3% = LOOP ON ERROR 

$x g APPLY RANDOM STALL BETWEEN OPERATIONS 

1x ? TYPE BAD SECTOR FILES (BSF’S) AT START 


-SBTTL BASIC DEFINITIONS 


pEINE TIO, SQORESS OF THE STACK POINTER ##* 1100 ### 


STACK= 
“EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT; SCOPE ::BASIC DEFINITION OF SCOPE CALL 


; *MISCELLANEOUS DEFINITIONS 
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NOOO 
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RO ODD VO LED 


ee ee ee ee ee ee ee ee eee be ee ee ee ee ee ee ee ee ee ee ee 
OD 


WWWWWWWWWWWWWWWWWWWWWWW) 


Bonet 
pat 
1777 

177774 
177772 


177570 
177570 


000000 


000001 


ASIC DEFINITIONS 
HT= ll 
fie 
CRLF= 0 
PS= area 
-EQUIV PS,PSW 
STKLMT= 177774 
PIRQ= 7777e 
DSWR= 177570 
DDISP= 177570 
ko 
Rl= %1 
Re= % 

R3= x 
R4= %4 
RS= 45 
R6= %b 
R7= “47 
SP= % 
PC= 47 

- PRIORITY 
PRO= 0 
PRi= 40 
PRe= 100 
PR3= 140 
PRY= 200 
PRS= 240 
PR6= 300 
PR7= 340 
Sil 0000 
SWi4= 40000 
SWi3= 20000 
Suii= 4000 
SwW10= 3000 
SwOog= 1000 
Swos= 400 
SWO7= 200 
SwWOb= 450 
SwOoS= i] 

Swo4= 20 
SwO3= 10 
SWO2e= 4 
SWOl= 2 
sHOCiy wos, swe 
Ea sop3. 84g 
-EQUIV SW 7; SW? 
- EQUIV SWO6 ; SW 
-EQUIV SWOS,SWS 
EQUIV Swoy; SW4 


LEVEL DEF INITIC 
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56008 Ege HORIZONTAL TAB 
+ CODE 


aR Ee CSA ET oe FEED 


A HINT TERRUPT REQUEST REGISTER 


"BULTOH RE 
ISPLAY REGISTER 


a, ee REGISTER DEFINITIONS 


: Seerbointle 


TER 


cr 
m 
< 
m 
i, - 
NOW CWO 


SEG 0032 


ESREGE. 


1407 


LWNM-OWONOU CWr-oO 


ee ee ee ee 
ui 


fx 


££ 
OHDITU LOH OOO YEN LEM ODD Ie 


ee ee he be he ee be be be be be be he ee ee be ee oe ee 


RK& DR 
Pil 


of 





“peC=99 


ooo000 


4 000174 
i4$1 000174 O00000 


14S2 000176 9000000 


MACY11 30(1046) 
10:4 
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BASIC DEFINITIONS 


-EQUIV SWO3,SW3 


fet BE 





*DATA BIT DEFINITIONS (BITOO TO BIT1S) 
BITIS= 100000 
Bitz 
+i3= 
BIT1I= 
BIT10= 
61 T8e- 
TOoSs= 
TO7= 
BITOb= 
BITOS= 
BITO4= 
Bt TBs: 
BITOI= 
BITOO= 
- EQUIV BITS 
“Buty Bits 
7 EQUIV BIT6 
- EQUIV BITS 
- EQUIV BITY 
[EQUIV BIT3 
EGU v BIT2 
"EQUIV BITl 
"EQUIV ITO 
*#BASIC “CPU” TRAP VECTOR ADDRESSES 
ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
BESVEC= 19 i RESERVED AND ILLEGAL INSTRUCTIONS 
TRIVEC= 14 HH — TRAP 
BETVER= 14 tt BREAKPOINT TRAP (BPT) 
IOTVEC= i: INPUT/QUTPUT TROP (IOT) **SCOPEx* 
TVEC= $0 ; SEMULAT fap (EMT) **ERROR** 
RAPVEC=34 HH ad 
TKVEC= 60 TTY KEYBOARD VECTOR 


tt TTY PRINTER 


PVEC= CTOR 
; ; PROGRAM IRTERRUPT REQUEST VECTOR 


TPV 4 
PIRQVEC=2c40 
-SBTTL TRAP CATCHER 


=0 
;#ALL UN LOCATIONS FROM 4 - 776 CONTAIN A _”.+2,HALT” 
t CEGUENCE TO CATCH ILLEGAL TRAPS BAS ANTERRUPTS wicks 
: ¥LOCATION 2 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 


-=174 
DISPREG: .WORD O 
SWREG: -WORD QO 


;; SOFTWARE DISPLAY REGISTER 
;;SOFTWARE SWITCH REGISTER 


SEQ 0033 


LS ses snes 


CZR6QBO RK& DR CPT PROG MACY11 30(1046) 
CZ2R60B.P11 46 


ee ee ee ee 
SSS SASS SOSERES 
SSRRPSRP STEERS 


000200 
000204 
000220 
sones? 


Ooo046 
oooo0se 


O2-DEC-77 10: 


000137 012176 
000204 
000137 012204 
000220 
000137 Ol2ee22 


000377 


I03 
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STARTING ADDRESS(ES) 


-SBTTL STARTING ADDRESS(ES) 
JMP aseDFSTRT 


SEG 0034 


;; JUMP TO STARTING ADDRESS OF PROGRAM 


.=204 
JMP aeP1STRT 
.-=220 
JMP aeP2sTRT 
.-LOW: .WORD 700 
..- HIGH: .WORD 1100 


-SBTTL ACT11 HOOKS 


H noth ane ee eee 
: HOOKS REQUIRED BY ACT11 
$SV ;SAVE PC 


;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


“WORD 140000 ;;2)SET LOC.s2 TO 140000 
- =$SVPC ! RESTORE PC 

.SBTTL APT PARAMETER BLOCK 

Se NO CATIONS od FAD 4 AS REQUIRED FOR APTN NRMMHEEEEES 


SE 


es aaa Na 
Se" iin $6 POINT TO START OF PROGRAM 

IPOINT TO eet tire CT. ADDRESS PNTR. 

eames i RESET GLOGRTION. COUNTER 


téeT UP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
t TRTERFACE SPEC. 


APTHD: 

SHIBTS: .WORD O ;; TWO HIGH BITS OF 18 BIT MAILBOX ADDR 

MBADR: .WORD SMAIL i | ADDRES OF APT MA LBOx (BITS 0-15) 

STSTM: :WORD 1320 +:RUN TIM OF LONGEST TEST 

SPASTM: :WORD 1546 : : RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 1546 *: ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
WORD S$ETEND-SMAIL72 ;;LENGTH MAILBOX-ETABLE (WORDS) 

AVECTI= 120210 *RKVEC=210, RKPRI= 

ABASE=177440 ?RKBAS ADRS 

ADE VM=000377 :SET DEVICES 0-7 IN MAP 
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1499 
1S00 
ie 
is 
1504 
1505 001100 
1555 $8118 ogg 
1 Ooi °000 
Ite SELES ott 
ae 
1511 Boi 500000 
1512 001110 000000 
1513 Batt 000000 
Be iis 
ee 
1516 Bol 000000 
isle Soties Bese 
isle Sette Bate 
st i 
By me 
524 000 
Ses 


ara th 
88 Ssssssssssssssesss 


WUT UI UU UT UU 


PEVNITED GYRULVOT SvORM LENSE LUO FVOR LOVES 
8 


Oe ee ee a ne he ne ee pe Bs be he be ee ee 


Re 


ror 
RE 


88888888 


7 
Do 


ODDIE ODO NRA E 
= 


md oul acl ound aun oom oul oun] aul oul ound ound oul ound evel onal ond onal od ed seed ood eed ed eed el eed ed ed ee ee 


UU UT UU UU Wu uno) 
Nr ay ed ey ey ee eg eg ey 
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COMMON TAGS 


-SBTTL COMMON TAGS 

5 5 HEHE ME AEM HE He EE HE ME EE HEME HE HE HEHE HE HE HE HE HE HE HE HEH HE EEE RRR EERE ER 
;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


-=1100 


SCMTAG: ‘ ;;START OF COMMON TAGS 
STSTNM: WORD 0 ;;CONTAINS THE Test NUMBER 
SERFLG: -BYTE 0 :: CONTAINS ERROR FLAG 
SICNT: :WORD O :: CONTAINS SUBTEST ITERATION COUNT 
SEERA: “WORD OO +t RONTA ReTu POR ERRORS 
SERTTL: -WORD 0 :: CONTA Foret ORs DETECTED 
SITEMB: .BYTE O ::CONTA ITEM cbnt T 
ERMAX: .BYTE 1 ::CONTAINS MAX. ERRORS PER TEST 
SERRPC: -WORD 0 ::CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: - WORD 0 : CONTA RODRES OF ’ * DATA 
BDADR: :WORD 0 CONTA OF ’*BAD’ DATA 
SGDDAT: “WORD CONTAINS BAO’ DATA 
“HORD 0 AOR yeD- par 1B Be USED 

S$AUTOB: :BYT 0 ; s AUTOMAT INDICATOR 
SINTAG: BvIE = 33 INTERRUPT INDICATOR 
WR: ; DSWR ; ;ADDRES OF SWITCH REGISTER 
DISPLAY: .WORD DDISP : SADDRES ISPLAY REGISTER 

KS: 177560 ti TTY K TAT 
STKB: 177562 TT 
$TPS: 177564 :iTTY R STAT G. ADDRESS 
STPB: 177566 :: TTY_PRINT BurE R REG. ADDRESS 

ULL: .BYTE 0 iC TAINS NULL ACTER 

ILLS: ‘BYTE 2 :: CONTA ® LER CHARACTERS REQUIRED 
SFILLC: -BYT 12 7; INSERT FIL . AFTER A “LINE FEED” 
STPFLG: :BYTE 0 3°T TNAL L ”" FLAG (BIT<O7>=0=YES? 

GAD: 0 ? CONTAINS T FROM 
SREGO: .WORD 0 1 TCH ING CiSeeGnOTthT 

° ° ad 

SREGI1: :WORD 0 ::CONTA CC Gap) 42) 
SREGe: ‘WORD O :: CONTA CC +4) 
SREG3: :.WORD O CONTA (¢ +6) 
SREG4: [WORD O ::CONTA (¢ }+10) 
SREGS: :WORD 0 : CONTA (¢ GAD)+18) 
SREGS: :WORD O : CONTA (¢ +14) 
SREG7?: :WORD 0 ji CONTAINS (($REGAD) +16) 
SREGIO: :WORD O ::CONTA ( ($REGAD) +20) 
SREGII: “WORD O :2¢ Tal (¢ GAD) +82) 
REGle: .WOR 0 ;; CONTA ( (SREGAD) +24) 
srecia: ioe 8 EOTaINS (See 023285) 
Shecic: WORD O + EON TAING ¢ (SREGAD ) 35) 
SREGI6: :WORD 0 t:CONTAINS (($REGAD) +34) 
$REG17: .WORD O ::CONTAINS (($REGAD) +36) 
$REG2O: ‘WORD 0 !:CONTAINS (($REGAD) +40) 


CZR6QB0_RK6 DR CPT PROG MACY11 30(104 -DEC- : 
€ u 1046) oe et 11:48 PAGE 37 SEQ 0036 





608.P11 02-DEC-77 10 Ss 
1555 001 SREG21: .WORD 0 ; SREGAD 
1886 00186 SREG22: -WORD O + EONTAINS ((SREGAD) +44) 
128 531 G23: - WORD 9 5 CONTAINS (($REGAD) +46) 
ieee ls eee: eB SOMA {See tep 220 
tet ay ioe Suan {Beeps 
001 REG3O: .WORD 0 >:CONTA 
: a _ : HH ( ($REGAD) +60) 
1563 001 ane “WORD : Hest (($REGAD) +62) 
Ot : WORD HH A ( ($REGAD) +64) 
165 B01 : - WORD 0 > CONTA ( ($REGAD) +66) 
1867 %4 B01858 SRE CaS: “WORD OO + CONTAINS  (SREGADI 272) 
ve : .WORD O : CONTA ( ($REGAD) +74) 
1569 O31Se2 she Ga?: > WORD 9 : :CONTAINS (CSREGAD +76) 
1571 001864 SIMPL; “WORD OO HUSER TED 
i873 001875 $1ne3: “WORD 6 HUBER aN 
1575 Oo1s75 Simpc; CHORD OO 5 USER FINED 
Be 001309 Sime; “WORD OO tUSER DEFINED 
DC 308 STMP1O: WORD i UBER 
1 001 ° : SUSE D 
i878 001306 SIMPL: “WORD 0 tt UeER ake 
Hees SBS Sretd: 188 B Hosa: 
1 901315 SIMPIS: “WORD USER D 
bay SESCAPE:0 4 
1585 001328 000377 SeELL: ASCIZ (2079 «377)<377> + CODE’ FOR BELL — 
1285 Botase eure: BECTT <1S> 3 QUE rer 
i 0013 Fe. jj CARR TAGE RETURN 
1589 - SOP waite’ tS waldo unnennaxnnxazit 4 
1530 ete APT MAILBOX-ETABLE BREBLRKLEHRKERE HHH ERK K EERE KARERE 
1883 5.2 i a ie ne ee eh ee Lk 
001330 SMAIL: ;;APT MAILBOX 
1335 901330 909000 SMSGTY: .WORD AMSGTY ;;MES TYPE CODE 
147 001334 00000 STESTN: :WORD ATESTN iiTestT NUMBER 
1 DOi bD00000 “wit: 4 
ie33 o13%6 So000p Shiver: <Honp fbewer Device Couvr 
1601 001349 MSGAD: “WOR ti ie ocaRE ANDRESS 
"am He Ss 
1602 1346 eneare: “WORD AM t nesSace pee ‘ie 
1603 i 320 aa SETABLE: 3; ENVIRONMENT TABLE 
iene BOT SET poe : -BYTE AEN ;;ENVI NT BYTE 
1608 se SENVM: [BYTE AENVM 3 JENVIRONMENT MODE BITS 
1607 001354 900000 SSuREG: «ORD ROAR? «FUSER SuIToHES Se 
1608 001356 oo0000 SCPUOP: - WORD ACPUOP 4iSEU TYPE, OP 
1608 5 S 15-112CPU TY 
: 11704201, 11/0S=02, 11720=03, 11/40=04, 11/45=05 


ee 
SO 
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CZ2R60B.P11 O2-DEC-77 10:46 APT MAILBOX-ETABLE 

1611 5% 11/70=06 , PD@=07, 0=10 
161¢ 1% BIT 10=REAL TIME CLOCK 
161 $i BIT 9=FLOATING POINT PROCESSOR 
1614 2% BIT S8=MEMORY MANAGEMENT 
1615 001360 000 $MAMS1: .BYTE AMAMSI ;;HIGH SS,M.S. BYTE 
1616 001361 000 SMTYP1: :BYTE AMTYP1 ::MEM. T BLKei 
1617 ;# aii a: a (HIGH BYTE) 
1618 2 NEE BIPOLAR AR=002 
1£5? 001362 oo00000 $MADR1: .WORD AMADRI ;;HIGH ABPRESS BLkei 
lees san + i bee T DOR. =3 "BYTES, , THIS WORD AND LOW OF “TYPE” ABCVE 

ee 4 ee 
1 001365 ee gnense: . BYIE AN anes 3MEM. TYPE, Rho’ 
1625 001366 000000 SMADRe: AMADRe ;;MEM.LAST ADORESS, ALKse 
1626 901370 000 mies: “BVTE ana 3 33H GH SS_M.S. JYTE 

eis e ee e 

1888 Ob1372 oooSPe Snare: “WOR BNAGRS iM MLAS : 00 ESS, BLK43 

ee : =. ee 
1253 Bot aoe 00 srry: “BYTE Aree He Fey faites 

e 3 s ee 

1235 Bolupe Rees a: BVERTA ¢} INTERRUE E198 bi Bus, RR has 
1634 001404 177440 “WORD ABASE ; BASE ADDR RES OF EGUIPMENT UNDER” TEST 
1635 001406 000377 Hace ‘WORD ADEVM ;;DEVICE OGe 
1636 001410 SETEND: 


a —— —— --—- -~ - ee 
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16 
16 
1640 
164 
164 
164 
1644 
1645 
164 
164 
1Pu8 
164 
1650 
1651 
1652 001410 
1653 
1685 141 417 
ie 

16 BB tats Beis 
1657 O01414 052276 
1658 OO1416 052406 

| 1659 
1 0014 44 
iges Boluse beats 
1 B0142e4 052276 
1664 001426 O52406 
1665 

| ees 
1 901430 045467 
1668 001432 050512 
1669 001434 052276 
1670 001436 O52406 
1671 
125 ool44o o4ss1 
1674 Ob144e peae1s 
1675 OO1444 052276 
1676 OO1446 O52e408 
1677 
1238 oo14so o4ss33 
12a Solves Pepers 
1681 O01454 052276 
1682 001456 4 
1683 
1684 
1685 901469 OySSSe 
1686 001462 OS051>2 
1687 OD1464 052276 
1688 001466 O52472 
1689 
1630 147 SS76 

tie 

iga> Botus 0512 
1693 001474 052276 
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ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 


Dy elation te” rep oo Lain re ra o ta Meg CAN aaa 

Ge ation STTEMD. Tuts R indicates hich ITEM fn THe peck IS PERTINENT. 

; *¥NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 

; *NOTE2: EACK ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


M ;;POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 


DF LEPOINTS 10 THE DATA FORMAT 
;UNIBUS PARITY ERROR 
;NON-EXISTANT MEMORY 
;NON-EXISTANT DRIVE 


;UNIT FIELD ERROR 


; SUBSYSTEM TIMEOUT 


;D TO C PARITY ERROR 


;DRIVE DETECTED PARITY ERROR 





a 
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1694 001476 0S2472 DFO3 
1696 -ERROR 10 
1697 901500 gus632 EMO sAC LOW 
1838 weptaecd peosse DT100 
1700 001506 052436 b2 
1206 4 AG RROR 11 SPEED LOSS 
ee . 
1703 nigttes peae ts ane . 
1705 001814 052276 DT100 
1708 1516 0524 DFO2 
1708 ERROR 12 
1709 001520 o4s6SY Mle ; ILLEGAL FUNCTION 
1710 001522 Os50512 DH100 
1711 001524 052276 DT100 
i71¢ 001526 oS24 DFO2 
1714 ERROR 13 
1715 901530 04567 §M13 ;PROGRAMMING ERROR 
1718 0015 050512 DH100 
171 01835 052276 07100 
1718 001536 Oo524 DFO1 
17e0 seeneh oumrel iERROR 14 ;NON-EXISTANT FUNCTION 
1722 O0154e 050512 DH100 
1723 001544 052276 DT100 
1724 001546 052436 DFO2 
17 -ERROR 15 
1768 901550 04S74S EM1S ;DRIVE TYPE ERROR 
1728 1552 os0Sie DH100 
1729 001554 052276 DT100 
1730 001556 2436 FO2 
1732 -ERROR 16 
1733 OO1S60 045766 EMiG ;FORMAT ERROR 
1734 001562 oOs0S1 H100 
1735 001564 052276 T100 
1736 001566 24 be 
17 
1738 -ERROR 17 
1739 001570 o46003 EM17 ;WRITE LOCK ERROR 
1740 001572 OsOoSi2 DH100 
174 O01578 052276 DT100 
174 1576 052436 Ge 
1744 - ERROR 
1745 001600 o4602 EN20 ;DRIVE UNSAFE 
1746 001602 oOs05i2 DH100 
1747 OO1604 05227 07100 
irae 001606 052436 DFO2 


SEQ 0040 


B04 
:48 PAGE 41 


1 
ERROR POINTER TABLE 


02-DEC-77 
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c 
Cc 


lJ 
« os & 
3 t=) = _j 
4 "4 o a 4 x 
J 4 WJ =x x y = So So 
- u. a $ uJ o a x 
uJ 4 z aad oO x re 
ay Wa el ax 9 e= z J uJ 
oe eee wee & “ea pet 
o oO w = J uJ z "4 oO 
: a uw “ — o > WwW 
rt) _ o - <« a “ P 4 
~ 2 a aa oS aa ec oO 
oO uJ WwW a a WW 
4 — tJ > > a = a a x 
Peer Sak Pood Be EOS Ra Toe ae 
iv )) oO “ a a a oO oO x= a 
~ wu ™ x w wo i j=] =~ wu 
a) wu wu cu cu wu cw ~™ ™ ™ 
4 4 e 4 4 4 4 a 
oS 8 So oC fo) & =] 3 o oO oO i=] o oo o Oo oS 
e-8 xvod ¥ emsou &ro0du finBou fecou enoou cwooow 2-50 au 
Sisre Gees Stace Ghee Gey Sesee Elsce bese geene Ee 
srtatat “505 srifatat =] WOOO -WJO00 rt atat=) sritatata! ritatat a} WOOO + 


FueR BUR Boe 
oy SEN 
SNZ2 GNae BNhe SSFP BURR BBR ELL Bess guzs 


om hem Kem Kem Se em Kem hem | ttt ttt Come Kem Kame oom | Son Keon Keown Rome) | on oem hem em) Sn ee hom hem) Son hem hem hem) 


8883 8888 8888 8888 8888 888s 8888 sess seas 
RARBRRRRRPSSBIS ESE BEC LOR CCL OL SSUES BER AMAT RRR RES ANIZ 


KRKRAKRKAARAKRARAARARARAKRARA KRKRAAAARAARAKRARARRKA 
Ok dd kd ad ad ed od nd od wd dO od ad dd od dd de ed ad edd dl dd ad ed ed dd ed ed de ded dd dd 
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1 001722 2 DH100 
i 6017. §2o3h2 OT100 
1808 001726 OS2602 DFO7 
1803 RROR 33 
igi? 001730 046323 tn33 ;WRITE CHECK ERROR 
1812 0017 os0S12 DH100 
1813 901734 052276 DT100 
1818 0017 052636 10 
isi? -ERROR 34 
1817 O01 6345 EM34 ;DATA MISCOMPARE(S) 
1818 Bo Lode 0512 DH100 
1819 001744 052276 DT100 
1820 001746 DFO4 
igae RROR 35 
1885 001750 046365 ifSE ;NO DRIVE RESPONSE-UFE & NXD 
tees ives Seeste Br183 
: Bot 06 DFO1 
: -ERROR 36 
001760 o46421 §N36 ;DRIVE ERROR WILL NOT CLEAR 
1830 001762 o00000 
1831 001764 o00000 0 
ies 001766 oo00000 0 
1 -ERROR 37 ;DRIVE STATUS CHANGE WILL NOT CLEAR 
1835 001770 o464S4 §M37 
tess Dpizrs Bonase 
183a bol776 BO0BdB r 
1839 
1840 -ERROR 40 
iess 046517 EMO ;ATTENTION BUT NO STATUS CHANGE OR FAULT 
1 b> Bet 0 
ie 052436 OF G2 
i 
1846 ERROR 41 
1847 002010 o46563 EM41 ;ATTENTION BUT DRIVE NOT AVAILABLE 
Hes Bpsbis Beeshe prige 
te} Goeble SEskce Brg 
1852 “ERROR 42 
1853 046621 EM4e ;ATTENTION WHEN NOT EXPECTED 
1854 2 12 DH100 
1 276 Tl 
1856 436 OFO. 
1858 -ERROR 43 ;ERROR WHILE GATHERING DRIVE STATUS 
1 902030 046651 EM43 
1860 002032 os0512 0H100 
1861 002034 052276 07100 
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CZR608.P11 02-DEC-77 10:46 ERROR POINTER TABLE 
1862 002036 052702 DF12 
1ge -ERROR 44 
Bes g02040 947128 Ene ;CLEAR CONTROLLER DID NOT CLEAR ERROR 
1867 Ousp4s qi O52 76 prig0 
ie : 
1 -ERROR 4S 
1871 o020S0 7173 ENGH ;NO ATTENTION IN ATTENTION SUMMARY REG 
183 Gosdes 5F yates 
1874 702 DF 12 
1876 ERROR 46 
1877 Spenee ae EMS ;UNSOLICITED ATTENTION 
i898 4 276 DT100 
1880 002066 702 DF 12 
1882 -ERROR 47 
1883 902070 pu7eby EMeG ;UNEXPECTED DATA TYPE ERROR 
1 002074 052276 OT100 
: 002076 052702 DF 12 
1888 “ERROR SO 
sss 906100 Bsosie ENB? ;ATTENTION DID NOT RESET WITH CLEAR 
1891 902108 76 pH tBD 
189¢ i 052702 DF 12 
1894 -ERROR Sl 
1896 902119 Ou7356 eNO ;SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 
1897 002114 7 T 
tise Basile Gesecs Bie 
1900 “ERROR S2 
1301 902120 046708 ENSe ;MULTIPLE DRIVE SELECT 
1303 o0e1es 052276 DT100 
1304 0021 052702 OF 12 
1906 “ERROR S3 
1307 992139 046734 BMS ;ABREVIATED HCE ERROR 
1909 1 2276 07100 
1310 Bosize Bes 32 13 
1912 -ERROR SY 
1313 902140 b254 ae ;OPERATION INCOMPLETE ERROR 
1915 002144 052276 DT100 
igi6 002146 052762 DF 14 


O04 
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igis 902150 946261 BERTOR SS SABREVIATED HVRC ERROR 
1920 1 le DH100 . 
1321 902154 O5ee76 OT1 
13¢¢ 1 7 OF 1 
1g5¢ 902160 046761 ifcee’ °° 2 TIMEOUT ERROR 
1926 162 DH100 . 
1927 002164 276 DT100 
1328 i166 053012 DF1S 
1330 sovie tated jERROR 57 ;2ND LEVEL IN SUBSYSTEM TIMEOUT 
1932 002172 OSOSie DH100 
1933 002174 052276 OT100 
1336 002176 053056 16 
1 :ERROR 60 
1337 goz209 947000 EM60 ;ERROR IN RECAL FOR RECOVERY 
1939 204 0 
1335 BREE! SBOE : 
igve -ERROR 61 
134 902219 047034 Enel ;ABORT MESSAGE 
1945S ogee 14 vate 0 
1948 -ERROR 62 
1349 goz220 ou7 102 EME ;CYLINDER MISCOMPARE 
195 2 2276 OT100 
1380 Bpss posses DF17 
1354 wel Senn jERROR 63 ;DATA ERROR WORDS 
1956 oo5 BS 232 900000 0 
1957 002234 052370 DT602 
1358 002236 0532 F 
1960 -ERROR 64 
1361 002 9 7126 PME ;CLEAR CONTROLLER DID NOT CLEAR ERROR 
1963 052276 D 
1364 002246 DFO2 
1966 -ERROR 65 
1367 go2250 047173 PMeH ;NO ATTENTION IN ATTENTION SUMMARY REG 
1969 4 7 T 
1350 Seesed Sesice Brag? 
1972 “ERROR 66 
1973 002260 047236 EMeS ;UNSOLICITED ATTENTION 
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002374 


047610 
000000 
000000 
000000 
047640 


051477 
0S2e362 


DH100 
D0T100 
DFOe 


- ERROR 
EMb6 
DH 


70 


71 


72 


73 
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76 


77 


04 
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6 ERROR POINTER TABLE 


; UNEXPECTED DATA TYPE ERROR 


;ATTENTION DID NOT RESET WITH CLEAR 


; SUBSYSTEM CLEAR DID NOT CLEAR ATT 


;DATA LATE WHEN UNLOADING HEADER 


; CONTROLLER ERROR DURING DRIVER SERVICE 


;ORIVE DETECTED PARITY ERROR 


; UNDEFINED ERROR 


;MAPRKING SECTOR BAD MESSAGE 


;BAD DATA VERIFICATION WITH READ 


SEQ 0044 
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002376 


8 
- 
RS 


Ma 22 


a 


i 


is 
we 


boe4se 


053156 


O0Se276 
OS3246 


11:48 PAGE 46 


7 * 
ERROR POINTER TABLE 


DF21 


- ERROR 
§N77 


0 
DT601 
DFe3 


: ERROR 
EN?7 


100 


101 


102 


103 


104 


105 


106 


107 


110 


;RETRY SUCCESFUL MESSAGE 


;ANOTHER RETRY SUCCESSFUL MESSAGE 


;RETRY UNSUCCESSFUL MESSAGE 


;NO VALID HEADERS IN TRACK JUST READ 


;BSE ERROR ON SECTOR NOT LISTED AS BAD 


; TIMED-OUT ON READ HEADER 


; TIMED-OUT ON SEEK 


;ORIVE SIEZED BY OTHER PORT 


;"DATA MISCMPR WHILE BAI SET” 


SEQ OO4S 
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:ERROR lll 
1 4 EM10 ;"NO NEM WHEN EXPECTED” 
S38? gozsio psnesy ; 
2089 002514 o00000 0 
20390 002516 000000 0 
soa} “ERROR 112 
3038 go2se0 050321 ifit ;"INTRPT WHEN CNTRLR NOT READY” 
2 os05ie DH100 
os2e76 DT100 
2406 DFO 
‘ERROR 113 
002530 oS0354 EM111 ;"NO ATT'N ON SEEK” 
2100 le : DH100 
2101 002534 9052276 DT100 
gi0e 002536 0524 DFO. 
1 “ERROR 114 
1 7 M11 :DRIVE’S CYLINDER INCORRECT 
G Bosse ae H2s ‘ 
cif, Bieese Bese Bre 
2110 “ERROR 115 
e1il 002550 on0000 a) : TYPE ADRS OF DATA MISCOMPARE(S) 
S113 4 Bre01 
114 OF 11 
2115 
2116 :ERROR 116 
2117 OO02560 o4634S EM34 ;DATA MISCOMPARE (11/70) 
2118 O02S6e 051023 DH103 
2119 go2s64 0 
gico 3146 DF20 
2122 -ERROR 117 
eles 002570 290905 6 :PART OF DATA MISCOMPARE 
ise Sueers feee7e Brago 
sie 76 166 48 
2128 -ERROR 120 
2129 OO02600 050430 EM113 ;ABORT- CAN'T READ BSF 
2130 O02602 oS50S12 DH100 
2131 002604 052276 07100 
e132 002606 052406 0 
gi 34 -ERROR 121 
135 002610 oso4se —M114 ;KT11 FAILURE 
2136 OO0e6l2 OS50Sie DH100 
2137 O02614 052276 DT100 
2138 002616 053272 DF30 
2140 -ERROR 122 
2141 O02620 050473 EM115 ;MEM PARITY ERROR 





SEG 0047 


104 
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ERROR POINTER TABLE 
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QB.Pil 


Cc 


- 
a 
az 
e 
uJ 
a 
Zz 
=a 
go 
a 
cot 
N 
me 
uw 
= 
o 
Q 
1) 
z 

™ 
La) 
— 

20 «(S 

o0o=- &«& 

=—=3M £M 

Ieu WE 

Q00 -wJQ00 

Mow 

“nN 

wounm 


002630 O04S467 
002636 000000 


002632 


uor DKON T MNO. OVO-UMNTMWO.OToO 
rrr TIFTUUUUINUUNNNN DODDODOWUWK 
See bem bem ban bam ban bem ban ben ben ben bes ben ben en fon on on ee ee ee eee 


cucucucucucucucucucucucucunucucucucucucucucucufucuducunucu 


JO4 
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e171 .SBTTL BIT ASSIGNMENTS IN THE RK611 REGISTERS 

2173 ;RKCS1 

giz ; 15 13 12 11 10 4 S 
2178 :CERR ! DI ! DCPAR! CFMT ! CTO ! CDT ! BAI7 ! BALE 
2177 :CCLR ! ' i 

gi78 > R/W? RO $ RO ! Rt RO PE RW ' RW ER ! 
2180 : 

e181 . 3 & 5 4 3 = 1 i) 
2183 ; RDY ! ! SPARE! FY ! F3 ! ’- ery ' 
e184 > RAW! RAW? RW E RW E RE RAE RE OR! 
2186 ‘ 

2187 ;RKCS2 

2188 ; 15 is 13 12 11 10 - Q 
2190 ; DLT ! WCE ! UPE ! NED ! NEM ! PGE ! MDS ! UFE ! 
e131 : RO ! RO ! RO RO! 
2193 ; 

e134 , 7 & 5 4 3 a 0 
2196 > OR ! IR ! CLR ! BAI ! DESL ! DS2 ! DSi ! DSO ! 
e137 ; RO ! RO ! R/d § R/W § RAW fF RZ Of ORZW 
2199 ; 

2200 ;RKDC (DESIRED CYLINDER) 

ge! ; 15 14 13 le 11 10 3 4 
203 > NU ! NU # NU ! ' NU ! DCS ! DCB ! 
seve § menenenarenesanenesererenesanenenaneas ect MTL DEOL 
2206 ‘ 

geo? a & 5 4 3 2 1 0 
2209 : 0C7 ! OC ! OCS ! DCH ! 0C3 ! DC2 ! DC! ! DCO ! 
ssi0 RSI EER alle ear ScachaiashLininittestesandiiaitinaidigdill 
eele , 

2013 ;RKDA (DESIRED TRACK AND SECTOR) 

eed ; 15 13 10 4 g 
2216 > NU ! UN ! UN ! UN ! UN ! TA2 ! TAL ! TAD ! 
e217 : READ * Alla bg AaB ATS 
5518 ; 

ece0 , * 6 S 4 3 2 1 a) 
e222 > UN ! UN ! UN ! SAY ! SAB ! SA2 ! SAL ! SAD ! 
gees : READ ONLY ee ee, ee 
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KO4 
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;RKDB (DATA BUFFER) 
; i5 14 13 


12 11 10 a g 
:DB1S ! DB14 ! DB13 ! DBl2 ! DB1l ! DB1O ! OBI ! DBS } 
: READ/WRITE ‘ 
; ? 6 5 4 3 2 1 ) 
: 0B7 ! DB6 |! DBS ! DBY ! 0B3 ! DB2 ! DBI ! DBO ! 
; READ/WRITE i 
;RKASOF (ATTENTION SUMMARY AND OFFSET) ‘ : 
SATIN? |! ATNG ! ATNS !_ATNY ! ATN3 ! ATN2 ! ATNI ! ATNO ! 
: READ ONLY i 
. # 6 5 4 3 2 1 0 
: UN ! OF& ! OFS ! OF¥ ! OF3 ! OF2 ! OF1 ! OFO ! 
; 7 § READ/WRITE i 
;RKWC (WORD COUNT) 
: 14 12 11 10 g 3 
tWC1S ! WC1Y ! WC13 ! WCl2 ! WC1l ! WC1O ! WC9 ! WCB ! 
; READ/WRITE i 
a b 5 4 3 2 1 0 
:we7 !WCh !weS !weY !we3 !wWCce !wWCl !wco ! 
; READ/WRITE i 
2h. oe 
;RKBA (BUS ADDRESS) 
: 15 18 2 11 10 3 8 
BAIS ! BALY ! BAIZ ! BAL2 ! BAL! ! BAIO ! BAI ! BAS ! 
: READ/WRITE i 
; 7? & S 4 3 2 1 0 
: BA7 ! BAB ! BAS ! BAY ! BAI ! BAe ! BAL ! BAO ! 
: READ/WRITE tALWYSO! 


SEQ 0049 
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cA | sRKER (ERROR oo 
oe , ; | 14 1 l2 11 10 3 8 
2279 ; DOCK ! UNS ! OPI ! DTE ! WLE ! IDAE ! COE HVRC 
2280 ; READ ONLY 
2e81 [Ste rqeeseseneteseecesaerEs carinneeneennieenmnetnnsaunmntenei 
ee8e 
scea “ 6 5 4 3 2 1 0 
Sse ; BSE ! ECH ! DTYPE! FMTE ! DRPAR! ILF ! SKI ILC 
$ READ ONLY 

2287 § Seem emcee wees eeeesorereeesesessnssssesesoonosssssoos= 
ec8s 

2893 ;RKDS (ORIVE STATUS) 
cca $ 14 le 11 10 3 8 
ssas ;SVAL ! OSC ! PIP ! SPON! WRL ! UN ! UN DTP 

3 $ READ ONLY 
2234 “ esespesetea mentee itataataeadmmeenanamaeameneeminaeaenanamnnniaenamatemmaammanmannmantatel 
5596 
Ssae Bs 6 5 4 3 2 1 0 
2 rs :DRDY ! VV ! DROT ! oF S ! ACLO ! OFSET! UN DRA 
§ 3 READ ONLY 

00 fn nnn nn nnn nnn nn nnn nna 
2301 
2302 RKMR1 ada ha a 1) 
Ey $ 11 10 3 8 
53pe ;RD__ ! WRT : ECCW PCD ! PCR ! MEWD ! MERD ! MCLK ! 
2306 :GATE ! GATE ! 3 : 4 5 ° 
2307 ; READ ONLY ! READ/WRITE 
2308 ae ee a! 
2309 
s310 : # 6 5 4 3 2 1 0 
e3le ;MIND ! MSP ! DMD ! PAT ! MS3 ! MS2 ! MSI ! MSO 
5315 ; READ/WRITE 


SEQ 0050 


O04 
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§31? ; RKECC/PAT 
> ; iS 14 13 l2 11 10 3 8 
$316 ; UN ! UN ! UN ! UN ! UN ! EPAIO! EPAD ! EPABS ! 
’ READ ONLY ' 


ce 
e328 13 12 11 10 q g 
> UN ! UN ! UN !_EPQ12! EPO11! EPO1O! EPOS ! EPos ! 

33 : READ ih i 
2334 F 
g3 S . # 6 5 4 3 2 RE MGed® | 
5332 :EPO7 ! EPO& ! EPOS ! EPOY ' EPO3 ' EPO2 ! EPOL ! EPOO ! 
2339 } ------------------------------------------------------- 
e340 : 
gait ;DRIVE STATUS INFORMATION 
2343 ;LINE A MESSAGE 00 
Sad¢ a Sie JA BE ES BO ee _ aE Eccl 
e347 : PAR ! DSC ! PIP ! SPON ! WRLK ! OFFON! FMT ! DRTP ! 

4g , 
e349 , F & s 4 3 2 1 0 
5351 :DRDY ! VV ! DRA ! NU ! NU ! DRIVE SELECT CODE ! 
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2353 
2354 
2355 


eee" 


frururorurufury 
OUNG 
_ 


uh 
WW 
tor 
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NOY 
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BI 
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T ASSIGNMENTS IN THE RK611 REGISTERS 


Lie B — 09 


SEQ 00S2e 


12 
: PAR ! UNLDG! RTZ ! LDG 
: i Hops ! ' HDS 
’ 
; 7 6 Ss uy 


! SPEED! CART ! 
: OK & PRES ? 


: ! BRUSH! HEADS! TRK 
;LTCH $ HOME} HOME ! i FOLOW! 
5 


;LINE B MESSAGE 01 

; 14 13 12 

! PAR ! SERVO! LIMIT! SEEK ! 
; BRAKE! ON SKINO MO ! 
’ 

5; 7 6 S y 


DIBIT! INDEX! MULTI! 
ERR ! 


ERR !HD SEL! 


HEAD _!WR GTE!WR CUR! SEC ! 
LPROL Teno NO'AND NO! ERR ! 
; XISTON!WR GTE! 


kgnegee RK&6 OR CPT PROG MACY11 30(104%6) 
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BOIFALOM—S 


PePPerrr errr errr ee 
POPUTU me ee - 
M—-OWONOUI Coty O 


23 


3 
a 


BOS 
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: 14 13 12 1 10 3 g 
: PAR! NU ! NU ! CYLINDER DIFF/OFFSET VALUE ' 
; cea a a aa aaa as asascscssasss=ss asa asa a sass assesses sass ene 
; 7? 6 5 4 3 2 1 0 


;CYLINDER DIFF/OFFSET VALUE! NU ! ORIVE SELECT CODE ! 


: 14 12 ll 10 3 8 

: PAR ! ALIGN! NU ! CYLINDER ADDRESS : 
. SIGN ! : 
a nl 
S 6 5 4 3 2 1 0 

: CYLINDER ADDRESS ' UN ! UN ! 1! O38 
at nen a 
;LINE A MESSAGE i 

: 14 12 ll 10 3 8 

: PAR ! DRIVE SERIAL NUMBER : 
italia nN en alone 
. ¥ 6 Ss 4 3 2 1 0 

; DRIVE SERIAL NUMBER ! DRIVE SELECT CODE ! 
an neh ccna the meno 
;LINE B MESSAGE 11 

: 14 13 12 ll 10 g 8 

> PAR! NU ! NU i DECODED HEAD ! SECTOR! 
: i S ' COUNT ! 
| ae eee eeenenensnneniesenSine reer eSae 
; 7 6 5 4 3 2 1 0 

; SECTOR COUNT 7 Rit Fea er eS Ee 


RKO& CONTROLLER REGISTER DEFINITION 
;CONTROL AND STAT . REGISTER 1 
;WORD COUNT a Ss 
;BUS SS REGISTER 
;DESIRED TRACK SECTOR REGISTER 
0 :CONTROL AND STATUS REGISTER 2 
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000012 
000014 





Ol 
03 
7 
3 
S 
7 
1 
3 


arene 


ooo001 
ooo000S 


002000 
004000 
010000 


10:46 


COS 


02-DEC-77 11:48 PAGE SS 
RKO& CONTROLLER REGISTER DEFINITION 
RKOS= 12 sORIVE ST STATUS _REGISTER 
= 
KASOF = 1g i. fon 8 OFFSET REGISTER 
KDC= Ss Rep Cc qc REG Rs 
RKDCYL= 20 NBER REGISTER 
= 
RKRRI = Se Ral REGISTER 1 
RKMRe= 34 INTENSE REGIST ER 2 
= 
RKBBS= 38 Pee ea ESE SAAAT TON 
RKECPS= 3 : 4 caste INF ae 
RKECPT= tEG TERN iH 
.SBTTL DRIVE COMMANDS 
SELDRV= 101 ;SELECT DRIVE 
K= 1 ; PACK KNOWLEDGE 
GNEOAD= 1 tONLOBO 
TaPts 111 sgrpey Serpe 
QFFSET= 118 j OFFSET 
TA= tei : READ para 
ATA= le ;WRITE DATA 
AD= 125 :READ HEADER 
AD= 127 WR TE HEADER AND DATA 
WRTCHK= 131 ‘WRITE CHECK 
; THE FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER 
: TO SIMULATE A SPECIFIC DESIRED OPERATION 
RELEAS= 140 RELEASE DRIVE 
ROSTAT= 141 aa ALL STATUS FROM DRIVE 
RONG R= 136 REA, otteR ePEGR (BIT 15 OF CS1) 
SUBCLR= 177 | SUBSTSTER CLEAR (BIT 5S OF CS2) 
INTR= 300 GENERATE INTERRUPT TO CPU 
; DRIVER ISSUED SERVICE mes 
.SEL= O01 ;DRIVE SELECT 
OR.CLR= 00S ‘DRIVE CLEAR 
.SBTTL CONTROL AND STATUS REGISTER 1 BITS 
GO= BITO ;GO BIT 
i. are ESTRUS 
BAlb= BIT8 BUS BEF T 16 
BA17= BITS ; BUS ADORE 2 tt 17 
CDT= ITiO : CONTROL IVE TYPE (O=RKO6, 1=RKO7) 
CTO= ~—s—BITI1 CONTR OLLER. IMED OUT WAITING FOR 
CFMT= BIT12 t CONTROLLER DRIVE FORMAT (O=22 SECTOR, 


SEQ 00S4 


1=20 SECTOR) 


Sena RK& OR CPT PROG MACY11 30(1046) 
CZR60B.P11 O2-DEC-77 10:46 





cue & 


: 


10 
a en 
at bedded 
esisb 
2517 
25128 000007 
2519 000010 


eset 900300 
e568 ppe805 
2530 010000 
e532 telats 
ae 





040000 
100000 


cain an 11:48 PAGE S6 


ONTROL 


Bis 
eet 


OS 


AND STATUS REGISTER 1 BITS 


SE@ ooss 


Tie R Ve BUS paaatY ERROR DETECTED BY CONTROLLER 
GE SUE 
REEL PRE, Om rom acess 
aH? 1B SEBRESS BHT 
as ESURELLEN BORE FURRAA CBSE AESER? azo secrom 


CONTROL AND STATUS REGISTER 2 BITS 


;MASK FOR DRIVE SELECTION CODE 
; DESELECT OR RELEASE 


fa Pgcaiee 
rie 1 i. 
PROG an LECT 


iOnveus Pot ORIVE 


tee 
Half 


REGISTER BIT DEFINITION 
; ILLEGAL FUNCTION CODE 
31 Fah FUNCT CODE 
: TION 
IVE FUNCTION 
; ED DRIVE BUS PARITY ERROR 
: IVE TYPE ERROR 
; CTOR ERROR 
;HEADER CRC ERRROR 


FESS OVERELOW ERROR 
ADORESS E 
RROR 


A 4 4444 4 44 444 
Pe a he 0 NOU UTC 


N£SWM-O 


DOOD DOOD ODODD ODOM 
Pt 


m 


RROR 


; ILLEGAL 


onan 
ioe CH) INCOMPLETE 


re . . . 
a 


pevlectevleslestesleeleslecles seleeiee selestes salestes] 
Od 4 4 dt 4 4 Ot tt 4 
AAA AAA tt Ht HH 
DOO NO UCWUnN-OO 


Mtwnr-O 


:DATA CHECK 
STATUS REGISTER BIT DEFINITION 


EUS 
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e559 000001 DRA= BITO ;DRIVE AVAILABLE CONTROLLER IS SET IF 
60 : THIS BIT {5 RESET 
61 oooo04 OFST= BITe ;ORIVE OFFSE 
b2 000010 ACLO= BIT3 ;AC_ LOW 
63 000020 SPOLSS= BIT4 ;SPEED LOSS 
eS64 000020 OCLO= BIT4 ;0C LOW 
eS6S tote DROT= BITS ;ORIVE OFF TRACK 
66 0001 VV= BIT& ; VOLUME VALID 
67 Y= BIT? i DR EVE ul 
Y= BIT? ;DRI 
S63 000400 DOT= BITs ; DRIVE TYPE (O=RKO6, 1=RKO7) 
2570 004000 WRL= BIT11 ;WRITE LOCK 
e$71 020000 PIP= BIT13 ;POSITION NG oH PROGRESS 
vA 040000 DSC= BIT14 OO YD STATUS CHANGE 
Sa 100000 SVAL= BITI1S TATUS VALID 
ce .SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION 
S2e2 000017 MESMSK= 17 ;MESSAGE MASK 
5258 000020 PAT= BIT4 ; FORCE evs PARITY ON DRIVE BUS MESSAGE LINES 
e580 000040 = BITS ;OI TIC 
81 BOR. 00 = BIT6 TOR PULSE 
Be 00 MIND= BIT7 x 
eS83 000400 MCLK= BITS 
84 001000 = BITS D READ DATA 
258s = BIT10 D WRITE DATA 
004000 PCA= BIT11 ar 
2587 010000 PCD= BITle L 
88 0000 ECCW=  BIT13 , BEING READ OR WRITTEN 
e589 040000 WRTGAT= BIT14 
a 100000 ROGATE= BIT1S 
Seas .SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A 
es34 000040 S.DRA= BITS sPRIVE AVAILIABLE 
ess3s 0001 S.VV= BITE ; VOLUME VALID 
25396 000200 S.ORY= Bite ;DRIVE READY 
e597 000400 S.TYPE= BITS ;ORIVE TYPE 
e598 001000 S.FORM= BITS i DRIVE FORMAT 
es39 00 S.OFF= BIT1O ‘ OFFSET 
2600 004000 S.WRL= BIT11 WR erin LOCK 
att 010000 2-sa BITle 3oP E ON 
602 020000 S.PIP= BIT13 iBos ITIONING IN PROGRESS 
a 040000 S.0SC= BIT14Y ;DRIVE STATUS CHANGE 
Bava -SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B 
2607 000040 S.ICYL= BITS ; ILLEGAL CYLINDER ADDRESS 
2608 000100 S.ACLO= BITE 3AC LOW 
26093 000200 S.FLT= BIT7 ;ORIVE FAULT 
2610 000400 S.ILF= BITS ; ILLEGAL FUNCTION 
e611 001000 S.PAR= BITS :DRIVE DETECTED DRIVE BUS PARITY ERROR 
eble 002000 S.SKI= BIT10O ; SEEK INCOMPLETE 
2613 004000 S.WLE= BIT11 ;WRITE LOCK ERROR 
2614 010000 S.SPLS= BITle :SPEED LOSS 


OS 
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CZR60B.P11 O2-DEC-77 10:46 DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B 
2615 010000 S.DCLO= BIT1e ;0C LOW 
s°i8 020000 S.DROT= BIT13 ;ORIVE OFF TRACK 
2618 040000 S.UNS= BIT14 ;ORIVE UNSAFE 


-SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A 


aa 


5e5s vite 8- NOOK: Bite EADS HOME, 
goes 990100 8. BRHM= BITe j BRUSHES HOME 
0200 "DOOR= 81T7 ; NTERLOCKED 
2625 900400 8. CART= BIT8 ; CARTRAGE INTERLOCK 
000 ° = $ 

7 002000 3: Pups BItio ; 

28 004000 S:REV= BITII + REVE 
2029 01 S:LOAD= BITle +HEADS LOADING 
2630 020000 S:R1Z= BITIa *RETURN TO ZERO 
e631 040000 S:UNLD= BIT14 :HEADS UNLOADING 
e633 .SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B 
2635 oo0020 S.SECT= BITY ; SECTOR ERROR 
2636 000040 S:WCLK= BITS ‘WRITE CLOCK AND NO WRITE GATE 
Se 36 pODe00 SHOFLS BIT? oN 6 Bal aliens toaten 
2639 000400 S:MHD= BITS {MOL TIPLE HEAD SELECT 
2640 001000 5: XERR= BITS iz x ERROR 
2641 2000 5:DIB= BITiO : Mert RROR 
2642 004000 S5:PLO= BITII1 :PLO ERROR 
2643 010000 S:NMOV= BITle :SEEK AND NO MOTION 
2644 0000 S°LIMD= BIT13 :LIMIT DETECT ON SEEK 
sous 040000 5: BRKE= BITI4 : SERVO-BRAKE 
a4 .SBTTL COMMON MASKS 
2649 000007 M.DRV= 7 ;DRIVE CODE 
2650 100000 NPAs BITIS ; PARITY 
2651 000003 M:ID= 3 *BYTE ID 
ee Blere8 nERib= 17788 EICHLER REGRESENCE OFF" 
2654 077770 M.SER= 77770 :DRIVE SERIAL NUMBER 
2655 000760 M.SECT= 760 *SECTOR COUNT 
2656 007000 M.HEAD= 7000 ‘HEAD DECODE 


— eee ee 
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000012 
000014 


000001 


000040 
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GOS 


PARAMETER BLOCK ALLOCATION 


. SBTTL 


>. > WU ee 
oe Soe At eh NUIW NUT 


47 


DORIC RC RC RC RC RC RC RC RC RC RC RCC RCC RC RC RC RC RC OIC RC ORC oie oie 


pleted hhh ht th ihe te hie eee ie ie ie te Te te ie Te Tt 


won 


eee NNOULUeO 


VvUVUUUUUUUU wows 
£vVo 


EowDoo4 
PP 


v 
2D 
w 
+ 
L) 


DRVDSC= 


PARAMETER BLOCK ALLOCATION 
ial -+-tete4-+04-talalelalalaldhalaleiaielaieladiei-+-+-113-ial-¥-lelehelaieieieiaielaieieieie 
H ! DRIVE NO. 








| ieee soos - 
'BA16-17,F i OFFSET : Q 
: BUS. Aobress «(Ou 16" B is) MY 
i BORO SN DRIVE. 27 its SOE RMATION #14 
ic AND TATUS REGISTER 1 i 16 
ic¢ TAT GISTER 2 i 20 
i T REGISTER i 32 
RAND SECTOR i= 
‘ CYLINDER i 30 
: ATT ie AND DRIVE OFFSET 32 
i STA & R i 36 
| eee Hie gars BYTE 08 ac: 
i L TAT YTE O1 i yy 
Line & @tatus BYTE 10 re. 
i 7 2 TATUS VTE 10 i 52 
: TAT YTE 11 i 54 
eset LIne ioe BYTE 11 56 
i EEE 6 T1ON i 62 
i ECE PATTERN INFORMATION eeeat 


PARAMETERS PASSED TO THE DRIVER 


THE FOLLOWING FINI TIONS ARE USED TO PASS PARAMETERS 
TO THE RKO6/RKO7 DRIVER 


;DRIVE NUMBER 
CYL R ADDRESS 
cee TOR 


— 


= 
t WORD COUNT (2 
;PROGRAM DRIVE ST 


PROGRAM DEVICE STATUS REGISTER DEFINITION 


:DRIVE posit foninc 


BITO 

BIT1 

BITe 3D ITIONED FOR DATA TRANSFER 
BIT3 ; iOhexBeCTeD ATTENTION 

BITY ;ORIVE HAS HARD ERROR 

BITS ;ORIVE STATUS CHANGE DID NOT CLEAR 


TS 
TS 
Cc 
A 


ae 


OMP 
T 
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000100 
000200 


000400 
001000 


002000 


ets 
eas 
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PROGRAM DEVICE STATUS REGISTER DEFINITION 


CMDTO= BIT6 $NO TERMINATION TO COMMAND FOR AT 
W.WCK= BIT7 tual EF F WRITE CHECK 
NOCHK= BITS HECK, DO NOT SET INTERRUPT ENABLE 
PBSVAL= BITS :NO, CHECK, STATUS WORDS 1D 

ae INATION OR 
DRPORV= BIT10 ORIVE FRO TEST SEQUENCE ‘ 
Bases. BIS BOP IST eb rhea Ba SE 
6 INT = Bitis Beate Cy Berek ERQUELED TN © pai ei — 
.SBTTL PARAMETERS PASSED FROM DRIVER TO PROGRAM ~ 


THE FOLLOWING DEFINITIONS ARE FOR REGISTER RETURNS 


FROM THE DRIVER TO THE CALLING 


8 iCOnnAND AND STATUS REGISTER 2 


EoOoO 


Sie 


Pp. = 

Pp: R= 32 ; 

p- BaR= 4 ; are 5 BR 

P:DTS= 26 ; : TOR REGISTER 
P:DCYL= 30 ; Cc REGISTER 
P.ASOF= 32 : ATTENTION Y/OFFSET REGISTER 
P.ER= 34 3E it 

cts § EELS ere op 
P:B00= 42 MES 5 TATUS By 00 
PRE Peery 
B-ROb= 5 ; g TAT TE 10 
P.Bi0= 52 Mee B STAT YTE 10 
PlAll= 54 Seace & A stat VTE 1i 
P'EPOS= EB ON MATION 
B-EBRR= 8 EGC PostTs THEORET ION 


-SBTTL PARAMETER BLOCK O FOR DRIVE 


PARMO: . YT 2 ;QRI R 
‘WORD O ; CYLINDER ADDRESS 
"BYTE O ; SECTOR 3s 
BYTE 0 ; K 
BYTE 0 OFF 
BYTE 9 BUS ADDRES (BITS 1 16 AND 17) 
WORD OD bea Pau SPE Romp 
WORD O : PROGRAM DRI TATUS ENE ORMATION 
WORD O s Roenea TATUS REGISTER 1 
WORD O OMMAND AND STATUS REGISTER 2 
WORD O :WORD COUNT STER. 
WORD O ?BUS ADDRESS ISTER 
WORD O :DESIRED TRACK AND SECTOR REGISTER 


IOS 
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CZ2R608.P11 02-DEC-77 10:46 PARAMETER BLOCK 0 FOR DRIVE 
.WORD O ;DESIRED CYLINDER REGISTER 
“WORD O * ATTENTION 2 Y/OFFSET REGISTER 
‘WORD O j ERROR REGI ER 
“WORD 6 ihessaGe LINE gR TAT YTE OO 
[WORD O MES Line B Statue BYTE 00 
‘WORD O iE L A STAT BYTE 01 
“WORD O : L B STAT TE O1 
ee 8 eee tite @ Here erie 18 
‘WORD O i MESSAGE L Ne e STATUS BYTE 1i 
WORD 0 : MESSAGE LINE B STATUS BYTE 11 
RD O sECC POSITION ORMAT 
WORD OQ :ECC PATTERN INFORMATION 
.SBTTL PARAMETER BLOCK 1 FOR DRIVE 
PARML: - BYTE : ; DRIVE NUMBER 
‘WORD O IEVETNOER AODRESS 
“BYTE O >SEC ss 
eB ese ae 
"BYTE O ; (BITS 16 AND 17) 
"WORD O ;BUS (BITS O - 15) 
‘WORD O : WORD (2°S COMPLEMENT) 
‘WORD O ; PROGRAM TATUS INFORMATION 
WORD O C TAT RE ISTER 1 
00! WORD : ; COM TAT GISTER 2 
0000 WORD O +BUS re R 
B30000 WORD : Dee N neciereresrs res 
WORD y patT N il Peet REGISTER 
762 WORD O :STA TER 
WORD O i MES L STATUS YTE OO 
766 "WORD O ME L B STATUS BYTE OO 
> oo2 000000 ‘WORD O ;ME L A STATUS BYTE O1 
2808 0027 990000 ‘WORD O ME L B TATUS BYTE O1 
2809 774 000 ‘WORD O :MES L TATUS BYTE 10 
2810 002776 O00000 WORD O ;MES LINE B STATUS BYTE 10 
e811 00 000000 WORD O j MESSAGE L NE A STATUS YTE 11 
Bie oO 000000 WORD O *MESSAGE L B STATUS BYTE 11 
2813 003004 o00000 WORD O 2ECC POSITION INFORMATION 
ee14 003006 000000 WORD O :ECC PATTERN INFORMATI 
seis .SBTTL TEMPORARY CONTROLLER REGISTER STORAGE 
e818 003010 ooo0000 T.CS1: .WORD 0 ; TEMPORARY STORAGE FOR COMMAND AND STATUS 
28e0 003012 000000 T.CS2: .WORD O j TEMPORARY STORAGE FOR COMMAND AND STATUS 
2822 003014 oo0000 T.WCR: .WORD 0 :TEMPORARY STORAGE FOR WORD COUNT ISTER 
2823 003016 o00000 T:BA: [WORD 0 ! TEMPORARY STORAGE FOR BUS ADDRESS REGISTER 
2824 003020 900000 T.DA: WORD O : TEMPORARY STORAGE FOR DISK TRACK AND SECTOR 





JOS 
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CZR6QB.P11 G2-DEC-77 10:46 TEMPORARY CONTROLLER REGISTER STORAGE 
2825 2 (000 T.0C: .WORD O MPORARY ST FOR YLINDER 
e8eb Bo 3084 eee T:ASOF: :WORD 0 }TERPORAEY «STORAGE FOR pte ON SUMMARY 
2828 T.ER: .WORD O TEMPORARY “Hoes ERROR GISTER 
26 T.0S: .WORD O ; TEMPORARY IVE STATUS REGISTER 
BS TMRS; WORD OO s TEMES T OR MAINTENANCE REGISTER 2 
33 003036 eee TMB: .WORD OQ LTEnpOReRY 81 ste e: MAINT NANCE REGISTER 3 
2833 00 o00000 T.POS: :WORD 0 TEMPORARY Y STORAGE OR ECC POSITION 
2834 003042 000000 T:PAT: :WORD O ; TEMPORARY TORAGE FOR CC PATTERN 
ee b03044 o00000 T.DB: :WORD O : TEMPORARY ST TA BUFFER REGISTER 
e837 .SBTTL DRIVER PARAMERTERS 
2839 77440 RKBAS: .WORD 177440 RKE11 ADDRESS BLOCK 
2840 pospe8 boa210 RKVEC: :WORD 210 :BDORESS 9 OF Re 1'VECTOR 
284 00305¢ 000240 RKPRI: .WORD PRS ?RKG11 bt PR PRIORITY 
284 3054 030272 A.NORM: ERRFRE  ADDRE TURN FROM DRIVER 
284 3056 504 [ABNL: ERRHDL : RETURN FROM DRIVER 
2844 3060 031000 A.CONT: CONERR Al R ERROR URN 
S 003062 000000 E.CONT: .WORD O > CONT 
Sue ; THI L ION I oC. D WHEN EVERY COMMAND 
2847 ; IS IN ITIATED. A CONTROLLER ERROR 
2848 ; OCCURS OLLOWING BIT ASSTGNRENT Is 
secc 
2851 000001 E.CCLR= BITO EAR RIOR NOT CLE RROR 
2852 0000 E.NOAT= BIT1 ‘ oAI TENT ER OTD Maer REG 
2853 000004 E.UATT= BIT2 NATTENTIO ON (SE TIAL ONLY) 
2854 000010 £.UDAT= BIT3 NEXPECTE YEE ERROR 
28ss 000020 E-CLAT= BITY iB N 12h ‘ RESET WITH CLEAR 
e856 000040 E.SCLR= BITS bss D NOT CLEAR DRIVE 
2858 000100 E.ILLD= BIT6 
2859 000400 E.OLT= BITS Lae eS ADER 
2860 0010 E.CERR= BITS “oR VER SERVICING 
2861 002000 E.OPAR= BITIO PARITY |ERROR 
2862 040000 E.CMTO= BIT14 oLLER C i OUT (QUEUED ONLY) 
e863 100000 E.MDS= BITIS Sor TTL R CORR SELEC 
2865 003064 op0000 O.WAIT: .WORD 0 PORRTER BLOCK OF THE DRIVE 
2866 ; WAITING F COMPLETION 
2867 003066 o00400 W.MTIM: .WORD 400 LOOP COUNTER FOR MILISECOND SCAN OF DRIVE 
e868 003070 000400 W.MILI: :WORD 400 oe MILISECOND TIME FOR PROGRAM 
2870 ; CPU VALUE 
2872 : 
2873 : 11/05 108 
2874 : 11710 
2875 : 11720 
ser Wa 
2878 : 1174S 400 
2879 ; 11/50 
2880 : 11/70 
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O2-DEC-77 10:46 DRIVER PARAMERTERS 
2881 003072 000300 W.SEC: .WORD 300 ;SE COND ¢ yates T nio8 ALL COMMANDS 
5865 3074 00 W.8SEC: .WORD 3000 :8 re ihe IOC ELE DOWN 
2884 76 00 W.MIN: .WORD coo Raut “FOR ty ART SPINOLE 
288s i 000000 HOR AD: [WORD ; ADORE OR READ ALL HEADERS 
e88e 162 oo0000 HDR.CT: : WORD ; "OF HEADERS LEFT TO READ FOR READ 
2888 003104 000 I.ISRL: .BYTE 0 + NTERRUPTCOR OR RELEASED COMMAND ISSUED 
003105 O02 004 010 H-HEAD: :BYTE 2,4,10 j HEAD DECODES 
¢ 30 003110 000 W. TIME: .BYTE O ‘DRIVES BEING WATCH-DOG TIMED 
283¢ .SBTTL INTERRUPT MASKS 
e834 003111 000 INTMSK: .BYTE 0 ; INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK 
283 ; INTERRUPT MASK TABLE 
r12 001 I.DRV: .BYT ; INTERRUPT FOR DRIVE 0 
Bt B53 tS 002 BYTE S SENT RRUPT HaSK FOR ORI VE 1 
2300 903114 004 ‘BYTE 4 : INTERRUPT MASK FOR DRIVE 2 
301 3115 O10 ‘BYTE 10 : INTERRUPT MASK FOR IVE 3 
Sane 003116 020 "BYTE 20 ?INTERRUPT MASK FOR DRIVE 4 
2903 003117 040 "BYTE : INTERRUPT MASK FOR DRIVE S 
2904 003120 1 ‘BYTE 100 : INTERRUPT MASK FOR DRIVE 6 
8905 003121 200 BYTE 200 tINTERRUPT MASK FOR DRIVE 7 
2307 .SBTTL PARAMETER BLOCK TABLE 
saps 003122 o02640 PBLKT: PARMO ;ADDRESS OF PARAMETER BLOCK GIVEN WITH 
e310 {DRIVE CALL. MUST BE LOADED INTO PBLKT 
2912 
eats, .SBTTL TIME FOR WATCH-DOG TIMER 
e915 003124 oo0000 W.ORV: .WORD O TIME FOR INSTRUCTION IN PARAMETER BLOCK 
16 .SBTTL PROGRAM SPECIFIC RESERVED LOCAT Bye 
2917 003126 000 MDFLAG: .BYTE O FLAG TO INDIC. DEFLT OR PARAM MODE 
2918 003127 000 TSTING: .BYTE O ?CURRENTLY RUNNING TESTS I 
2919 3130 000 DERCNT: BYTE : Dare ERROR COUNT 
3131 000 COMP: :BYTE RATION COMPLETE FLAG 
2921 3132 000 DONE: .BYTE O :DONE SWITCH 
133 000 TYPFMT: .BYTE 0 :DRIVE TYPE & FORMAT CONTROL 
31 000 FORMAT: :BYTE 0 ‘DRIVE FORMAT IN BIT 4 OF BYTE 
3135 000 ERRCNT: .BYTE 0 tERROR COUNT 
2925 003136 004 ERRLMT: .BYTE 4 ? ERROR LIMIT 
2926 003137 000 ORVERS: :BYTE 0 + ERROR T FOR CURRENT DRIVE 
2927 003140 OPCONT: :BYTE 0 :OPERATION CONTROL SWITCHES 
gil DRNAFG: :BYTE 0 :=1 INDICATES DRIVE SIEZED BY OTHER PORT 
Me 000 REISSU: “BYTE O ; DUAL AC ELAG TO RE-ISSUE COMMAND 
14 TSTTYP: .BYTE O :OFFSET TEST IDENTIFIER 
2931 3144 DCEFLG: :BYTE 0 ‘DATA CHECK E! F 
eg3e B03145 000 WCEFLG: BYTE 0 *WRITE C Ck E OR FLA 
3 14 000 OLTFLG: :BYTE O :DATA LATE ERROR FLA 
2934 003147 000 DIF100: ‘BYTE 0 ;"CYL DIF = 100/200" FLAG 
2935 003150 000 NORTRY: .BYTE 0 :“NO-RET FL 
2936 003151 000 MEMABT: -BYTE 0 :SET BYTE = 1 FOR NO ABORT 
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293 . MEMORY PARITY ERRORS 





c 
C 
338 1 us HLPOVL: .BYTE 0 RLAID | INDICATOR 
ae tein | ie ieee: ee he ey aoe ae Ho 
nf 003155 000 PASSNO: -BYT 0 aS Se) BaRect yon ie 
sais Biles Bae Grate: BE ge £188 Gre of RENE 
¢ riatatlae VEROSHee IT gy MEERDERS SHITCH SY 
E35 3 pre te HEIR See oi cat foe" 
eaue 000020 OREGSW=B1 74 Be FRE oUTRED SWITCH 
Ba MEMVEC=114 . E Y Y PARITY TRAP VECTOR 
fract’ “eta {eee ag be crosses pcre 
e355 90 00 9000 CMD: “HORD ie i RECORD, OF BaD 56 STORAGE 
5306 9000 909000 COMSTR: .WORD 0,0,0,0,0,0 ;CURRENT COMMAND STORAGE 
Sop Powoet: ‘fond gone i eou ie BIT TS OF. CONVERTED BINARY NUMBER 
236 HPCOET: “WORD : inTGH 81 g F CONVER ED BINARY NO. 
BUFPRT: [WORD O  BUEEER ER POINTE wis 
se pracgn’ tees 8 ERROR COMED ty use 
Sey GYCNDR: :WORD OO Sine nO, OE UNE 3] OS al dn 
FINUS: .WOR ; T_IN 
a ioe Be hgh eee 
6376 PATRN: - WORD : BAT T LIST WORD 
2974 ana "WORD 0 to) OFFSET VAL 
eae DSK : Boab OB tRO.” OF WO ACTUALLY RFERRED 
cee Bees Fe: Ee 8 ee 
2980 t AC THIC; “ORD : AC TUR a a he 
ne ‘WORD O RELL bok AT ONLINE DRIVES 
Sap 10 00 BSYS: BL e CORRENT SUBST STEN STORA 
e385 poeets rearet 34 suey : “BORA 17. i ERR ny SURSTSTEN. =HAME S708 SF anBRtve 
: TO BE TESTED. HIGH BYTE I Is SUBSYSTER 
2987 : NAME, LOW BYTE IS DRIVE NO. (ASCI 
bang SSS4 00000 DRVPTR: .WORD 0 bon tie ter PBINTEA’” 2 a eee 
6330 poeece 000010 SCRLST: .-BLKB 8 :SCRATCH DRIVE LIST 


e9se OOSSEE PATOO: 


MOS 
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CZR60B.P11 02-DEC-77 10:46 PROGRAM SPECIFIC RESERVED LOCATIONS 
a 
-TABLE A - BASIC READ/WRITE TEST SECTORS FOR RKO6 
2398 TABLEA: 
; WO ,0 ;DRIVE © 
$000 “HORB 5°2 1 
i 7 WO 4 : 2 
-WORD 620.6 : 3 
“HORB « 858°18 ; : 
3005 . WORD 620, 14 : g 
3087 “HORB B59: 4 fo 
“WORD Bee" 13 
3010 “HORB Hees ; 13 
il Wd 622; 10 : 14 
§ “WORD | eSB’ Tg ie 
4 “WORD B55" te ; 17 
3016 ; TABLE A - CORRESPONDING CYL NUMBERS FOR THE RKO7 
1 TABL7A: .WO 1444 :DRV O 
318 sca “WORD 1444; 31 
3020 “WORD §=1444'4 :2 
WORD 1444'6 :3 
WO 1444/1 74 
WORD gua’ tg iP 
3025 WORD 1444) 16 :7 
3086 WO 144 9 10 
7 WO! 1446’ 11 
ae ‘Hone hue is 
; : SRB 1446/10 $14 
3031 "WORD 1446; 1e 115 
3032 "WORD 1446,14 16 
3033 WORD 1446; 16 17 
34 
203 
-TABLE B - WORST CASE DATA PATTERN 
3038 005766 TABLEB: 
3033 005766 072307 072307 
3040 135143 135143 
4 772 156461 156461 
774 167230 167230 
3514 073514 
3044 035646 035646 
304S 016723 016723 
ay Beeoke Moses es 
3048 006010 061672! 061672 


SEQ 0065S 


NOS 
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PROGREM SPECIFIC RESERVED LOCATIONS 


-LIST OF STARTING DRIVE NUMBERS, TO GENERATE TABLED 
STOLST: .BYTE 0,1,3,6,12,17,5,14,4,15,7,2, 16,13, 11,10 


-LIST OF USEABLE SECTORS IN EAC 
SECLST: .BYTE  0,1,2,3,5,6,7,1 


:TABLE OF OVERWRITE TEST SCORES FOR TRACK O FOR NEG OFST 
NOSCRO: .BLKW 16. 


; TABLE OF OVERWRITE TEST SCORES FOR TRACK 1 FOR NEG OFST 
NOSCRI: .BLKW 16. 


; TABLE OF OVERWRITE TEST SCORES FOR TRACK 2 FOR NEG OFST 
NOSCRe: .BLKW 16. 


;TABLE OF OVERWRITE TEST SCORES FOR TRACK O FOR POS OFST 
POSCRO: .BLKW 16. 


:TABLE OF OVERWRITE TEST SCORES FOR TRACK 1 FOR POS OFST 
POSCRI: .BLKW 16. 
:TABLE OF OVERWRITE TEST SCORES FOR TRACK 2 FOR POS OFST 
POSCRe: .BLKW 16. 





SEQ 0066 
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Ww 
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007112 


0071S2 


007212 


bh bP he he bh hh pe 


0072S2 


007312 


007352 


007412 


007414 


007416 


007420 


DWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW) 


PRIA A SR ne 
DDI LOH ODD VR LOO ods Vole cin De wen coo 


007422 


foe 
Ro 


007424 


Sass 


007426 
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007430 


RRRRREREEE 
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007432 
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000020 
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PROGRAM SPEC 





CO6 


tPic ee SPRvEB Locations 


OF DATA ss | httcmemaahil TEST SCORES FOR TRACK O FOR NEG OFST 


AcscRo: -BLKW 


E OF DATA i; tients TEST SCORES FOR TRACK 1 FOR NEG OFST 


hese I: .BLKW 
TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRACK 2 FOR NEG OFST 
ACSCRe: .BLKW 16. 


TABLE OF DATA ss tame aiid TEST SCORES FOR TRACK O FOR POS OFST 


bcscro: 


. BLKW 


; ALERLE OF OF at CPPAT SEL Ev TEST SCORES FOR TRACK 1 FOR POS OFST 


TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRACK 2 FOR POS OFST 
bescR2: .BLKW 16. 


jaehkb rest BEORE FOR TRACK O FOR NEG OFST 
: .WORD 


ASSC 


jzeneT bet SCORE FOR TRACK 1 FOR NEG OFST 
WORD O 


;SELF-TEST SCORE FOR TRACK 2 FOR NEG OFST 
WORD O 


NSSCRe: 


;SELF-TEST SCORE FOR TRACK O FOR POS OFST 
RO: .WORD O 


PSsc 


-SELF-TEST SCORE FOR TRACK 1 FOR POS OFST 
AZEERT! SORS 0 


jSELE-TEST SCORE FOR TRACK 2 FOR POS OFST 
PSSCRe: .WORD 0 


sCenect OF OVRWRT SCORES OVER ALL SURFACES 
-WORD O 


OVRAVG 


“AVERAGE OF READ SCORES OVER ALL SURFACES 
COMAVG: .WORD  O 


;SCRATCH TABLE — see FOR TRACK O FOR NEG OFST 


ASCORO: 


-BLKB 
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3512 ;SCRATCH TABLE OF SCORES FOR TRACK 1 FOR NEG OFST 
o0074S2 000020 NSCORI: .BLKB 16. 
SCRATCH TABLE OF SCORES FOR TRACK 2 FOR NEG OFST 
aéee 007472 oo0020 hecoRes -BLKB 16. 
ze 
26 «SCRATCH TABLE OF SCORES FOR TRACK O FOR POS OFST 
3227 007512 o00020 PSCORO: .BLKB 16. 
«SCRATCH TABLE OF SCORES FOR TRACK 1 FOR POS OFST 
30 007532 000020 OR1: .BLK 16. 
3232 :SCRATCH TABLE OF SCORES FOR TRACK 2 FOR POS OFST 
3 o0075S2 oDD020 PSCOR2: .BLKB 16. 
3637 ooo002 LSTTRK=2 ;LAST TRACK = 2 
3239 59 a Bog pORCER carte BSE E ERROR 
3240 000010 OPIERR=BIT3 :OPI ERR 
seul 990020 D K Res ITs Ber on See ERROR . 
=BIT K 
3543 B30100 Bcene=BiTe HITE CHEEK ERROR 


PSectt e be croa Fure 
Beyacet fie IBRIVE SAGE BEveE eS STHER PORT 


eae 93} 135 DZR6Q: .ASCIZ <15><12><12>/CZR6QBO - RKOG-RKO7 DRIVE COMPATIBILITY PROGRAM/’<15><12><1l2 
113 


8 
5 
2 
8 


meee 
E 


RKBADR: .ASCIZ <12>/RKO6-07 BUS ADR = 


033060 O3005S RKVADR: .ASCIZ /RKO6-07 VEC ADR = 


Se 

g 

RE Mwoe- 
Siives 

or 73 

Rowe 


030113 presse RKPRTY: .ASCIZ /RKO&-O7 PRIORITY =/ 


nw 8 
NOOO 
Ko Ws 
8 
. 
ue 
Baw 
ore 
37 
aNo 
a 
=} 
o 
£ 
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= 
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ee 
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ZR60B80 30( 1046) -DEC-77_ 11:48 PAGE 70 SEQ 
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ae TYPSYS: .ASCIZ <12>/TYPE NAME OF NEXT SUBSYS TO TEST (A-P) : / 


Bareui 


ASKTYP: .ASCIZ <12>/DRIVE TYPE 6<CR> FOR RKO6, 7<CR> FOR RKO7: / 


SYSDRV: .ASCIZ /SUBSYS DRIVE(S) = / 


WILTST: .ASCIZ /WILL TEST DRIVE(S) 7 


ONSUBS: .ASCIZ 7 ON SUBSYS /<15><12><12> 


ANOTHR: .ASCIZ /IS THERE ANOTHER SUBSYS (Y OR N <CR>) ? 7 


DROVFL: .ASCIZ <12>/MORE THAN 16 DRIVES ENTERED !7<15><12><12> 


PEC ECSeeeeeauety! 


310 

Bib Bt 

sate 4 SRPASS: .ASCIZ <12>7%# STARTING PASS ##7¢15>¢12> 

3315 

16 

3318 : 8 MNTPAK: .ASCIZ <12>/MOUNT PACK ON DRIVE AND LOAD. 7<15><12> 
3350 iy 5 

Bee 910370 is 

ce 6 Bay a1? DISPAK: .ASCIZ <1l2>/UNLOAD DRIVE AND REMOVE PACK. 7<15><l2> 
Be Bike eke 

3328 010434 040S20 


FO6 
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if 26 138 STR2O4: .ASCIZ <12>/START AT ADR 204 FOR PASS 1 ON SUBSYS .7<15><12><12> 

i My 

1g 
1502 
456 
101 STRe20: .ASCIZ <12>/START AT ADR 220 FOR PASS 2 ON SUBSYS .7<15><12><1le2> 


TYPRWN: .ASCIZ /TYPE R<CR> WHEN 7 


E 


00D wre 
eh 
RRRRRAMRRRG 


ide ' Ou DRIRDY: .ASCIZ /DRIVE READY : / 
251 ibes mee oes 





DRIDON: .ASCIZ /DONE : / 
NODRLS: .ASCIZ /NO DRIVES LISTED FOR THIS SUBSYS !7<15><12> 


gana 
N £ 
beet 
at 
ain 8 
= oO 


— 
ra 
~ 
io 





10 
i 
3353 i 1S 
3c t 7e03 RESLTS: .ASCII <15><12@>/SCORES FOR DRIVE (O-12 DEC.) :7<15><12><12> 
1 111 
Bee Ot 
1 
t 1 
3 5 i Bhs -ASCII /TRACK DRIVE OVRWRT OVRWRT READ READ/<15><1l2> 
3370 B1104 155 
337 Olt A167 
3374 Oil ~— 
3375 Stes 6 1011 -ASCII /NUM READ SCORE SCORE SCORE SCORE 7< 15>< 12> 
3376 ll guosds 1523 
3377 Oll petit 1523 
3378 11054 1117 1S23 
see SLRS BRILL? at 
3381 011075 hii ll 03120) -ASCIZ / OFST- OFST+ OFST- OFST+7<15><12><1le> 
3382 011102 O26Se4 7411 1506 
3383 011110 O2552e4 047411 OS1506 
3384 011116 O26S24 047411 OS1S506 
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72 
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CZR608.P1 


2 8 


1 
3385 oo0sois oo00012 
pills. 7440 Oo11 Osiie? OAVERG: .ASCIZ / OVRWRT AVG = / 
ilise Bebdee es 
3389 011151 040 2522 O42101 RAVERG: .ASCIZ 7’ READ AVG = / 
3390 011156 020040 
3344 111% 1 12 O200S2 ENDTST: .ASCIZ <15><12><12>/7"* END OF TESTING ##/<15><12> 
3393 Olil 2116 047440 
11 106 123 
{1885 Beads Bost 
se Bllzss BeamG Boro | ooo eeu: (AI 7 
3399 O1L 33 ig3 046105 OO4SO6 SELF: .ASCIZ /SELF / 
TAB: -ASCIZ / / 
soe it re osi ie? 036440 SWRMSG: .ASCIZ /SWR = / 
it 4 o4 020127 NEWMSG: .ASCIZ / NEW = / 
ll 0 ps 1 O44S22 DRVSEG@: .ASCIZ <15><12>/DRIVE(S) = / 
zie Gliese Gabare Colsas Geooe 
09 it Te on 04 042526 BADDRV: .ASCIZ /DRIVE / 
11314 16 6 G54105 NXDRIV: .ASCIZ /NON-EXISTENT/<15><12> 

i a 

ose 7 O NTREDY: .ASCIZ /NOT READY/<15><12> 
3 wit BEL ELBE 


WRTLOK: .ASCIZ /WRITE-LOCKED/<15><1le2> 


SESS P PPPS EEE 


be be bn ae be ne ne ae 
WON UL Wwe. 


~ 
£ 


SeRae 
¢ 
it 

a 
By 


B26! ALNPAK: .ASCIZ /LOADED WITH ALIGN PACK/<15><12> 
1 


on 
~~ 
Lael 


rv 
Ww 


a or 
ee 


QERZORHBBOVER 
OOOOOOOOOOOO OOOO 00000000000) 


ee eh ee ee er ee ee 


REPLPK: .ASCIZ /IF XXDP PACK ON DRV O, TYPE “Y <CR>", & REPLACE IT: / 


SELLL 
bo 
o 


N 
BEd 
305 
ba ee pee 
Rak 
<£ 
O-OMWw0 £OK- 


PEPE ee SS 


NODRTS: .ASCII <15><12><12>7%% NO DRIVES TO TEST/’<15><1l2> 


GROSS ees 
Beko 
“Bea 


(loud oul oul oud oud oul oomd oud ound onal al ond eed eed od eed ee ee eT ey 


se le 

438 5 051505 Se4 

3439 $36 Ole 

3440 537 120 O42S22 051523 CNTRDY: .ASCIZ /PRESS “CONT” WHEN RDOY/<15><1le> 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 


AGE 73 SEG 09072 
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ay 011544 021040 047503 Os2116 
Se a 
4 tt O46101 020124 HLTROD: .ASCIZ /HALT REQUESTED/<15><12> 
3446 011574 o42eSe2 1 oS1S0s 
3447 O11 S04 1 
3 it i Bit DROXDP: .ASCIZ /DRIVE O IS LOAD MEDIUM’<15><12> 
11 1 1 1S 
Si 116 is 
4 DROPOR: .ASCIZ <15><12>/*#* DROPPING DRIVE - 20 ERRORS/<15><12> 
3 BLIEGE ou Basess Beni36 ; 
3455 011654 047111 020107 051104 
3456 011662 053111 O2010S o200Ss 
a bt iS6a Heres TSTDRN: .ASCII <15><12><12>/TESTING DRIVE / 
60 011712 3516 O42040 
; pt 17e0 pA VNO ASC “4 4¢415><12> 
Hes OLi7at o4 RaRes3 ou2eee RIV: “BBEtS ORIVE / 
3465 011740 052122 O200S6 CART: .ASCIZ /CART. / 
3466 011746 000 
ee ithe it psaiee 020056 SERNM: .ASCIZ /SER. NO. / 
Bg 1{3e2 Boz8t neat FACTBS: .ASCIZ <15><12>/FACTORY / 
70 011770 051117 
a 13668 wecbl ose10 SOFTBS: .ASCII <12>/SOFTWARE / 
3473 (Ol 102 101 OS1440 BDSECT: .ASCIZ /BAD SECTORS :7<15><12> 
3474 01 5be¢ 1505 ; 051522 
34 OI 047117 WNOFALS: .ASCIZ 7 NONE/ 
sire BLES oo! 
3123 912036 9 503 BAD632: .ASCIZ /** CANNOT READ BAD SECTOR TRACK!/<15><12> 
es ae a BS 
3481 0120Se 04 oso2 
Ae te Bie 
1 1117 
348s bist 1 oie a CNTRLC: .ASCIZ /tC/<15><12> 
3486 eesti 1 O48 o000i2 ENTRLZ: .ASCIZ 7#27<15><1le> 
3487 Ot 114 051136 9 NTRLR -BECIZ 74R/615><12> 
12121 1 1 NTRLU: .ASC 74U/<15><12> 
3489 Olele6 043536 o0S0i15 O06 CNTRLG: :ASCIZ /#G/<15><1la> 
3490 012133 01S 005012 000 CRELF: -ASCIZ <15><12><1la> 
4 12137 24 SLSH: . ASC 4 /N7 
uy 1 13 ob €0 “BSCt Fae 
1214 40 40 ACE6: [ASCII 7’ # 
3494 012145 040 SPACE : .ASCII 7 7 
3495 012146 O40 SPACES: .ASCII 7 / 
3496 012147 40 SPACE2: .ASCII 7 / 


i 


CZR6QBO RK& DR CPT PROG MACY11 30(104%6) 
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$7 012150 o000040 


O1e1Se O20040 000075 

Bt 156 7527 elee oo0040 
12164 440 40 

Olel 000 

O1e17. 


meme | 


076 O00040 
3507 
3508 
3809 
10 p1g176 105037 003126 
i} leede 000403 
13 012204 112737 OO0001 003126 
S14 Oleele 112737 000061 003155 
iz Oleeed 
17 QOleeee 112737 oo0002 003126 
3515 Olee30 112737 O0006e 003155 
: 012236 012737 OO0340 177776 
3552 
3523 


a 


furorururururure = 


ee 
g 8 
2 8 


Gaggeageaa 8 
a8 


Q 
: 


tururu 
BS 
“ 


Sono 
zs 


OOOO0O0O0O000000 20000 
Let cet-capd cud cad apt ced cpl apd ced apt and ae aed cel wr sed od 
Pb bbb hee 

SVVS8y338 


3 000036 
3035 340 Ooouee 
3537 e344 017, 017242 
3$38 2352 00131 
3539 2356 112737 Od0000 1115 
3540 sae} 012737 012364 001106 
3541 e372 012737 012372 001110 
3S4e 
3244 1 1374 
3eu¢ B154D4 Bib73e 12440 00000 
3546 Ole412 012737 177570 001140 
3547 Ole4e0 012737 177570 O0114e2 
3548 Bist 6 OQee777 177777 166504 
ee 0124 001012 
3551 012436 o00403 
3552 O1le440 012716 O12446 


O06 
02-DEC-77_ 11:48 SEQ 0073 


PAGE 7 
PROGRAM SPECIFIC RESERVED LOCATIONS 
SPACE1: .ASCIZ 7 / 
VEN 


PRMBUF: .ASCIZ / =/ 
WORDSP: .ASCIZ /WORD / 
coun: 2353 fav 
ROMPT: .ASCIZ /# / 
PRMPSP: .ASCIZ /) - 


EVEN 


+ FLAG FOR 200 START 
CONTINUE 


DFSTRT: CLRB MOF LAG 
BR PISET 
STRT: MOVB MDFLAG 


Pl ;SET FLAG FOR 204 START 
PLSET: HOVE iat +PASSNO PASS NO. 


CONTINUE 


se ror es ;SET FLAG FOR 220 START 
PASS NO. =@2 


P2STRT: MOVB 
MOVE = #2, P ;SET 


CMSTRT: MOV *BLOCK ALL INTERRUPTS 
SBTTL fa The "Sonn mE The COMMON Tats 
33C COMMON TAGS (SCMTAG) AREA 
SSCMTAG, R6 s7FIR T LOCATION TO BE CLEARED 
oR (R6)+ ?!CLEAR MEMORY LOCATION 


CMP OB R6 et, 

OOPS Hl 
SE UP THE STACK POINTER 
LEVEL vgcTon FOR SCOPE ROUTINE 
Fr ty ECTOR FOR ERROR ROUTINE 
b tector FOR TRAP CALLS 


MOV 
p SINITICN Le A iste 
MOV BF ry c 


NOV ee 
MOV 


MOV Snice As 
MOV ; BOER 7FAILURE VECTOR 
HM 5340 SE BANS eae OF-PROGRAM COUNTER 
CLR es 33 tEAR Fw SCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX > ALL RROR TEST 
MOV #.; PADR HH NITE IZE THE L ADDRESS FOR SCOPE 
MOV &. PER He ERROR OP ADDRESS 
;;SIZE FOR A ITCH REGISTER. IF NO FOUND OR IT IS 
::EQUAL TO A "-1" SETUP A SOFTWARE TCH REGISTER. 
MOV JSERRVEC, -(SP) i i SAVE 
MOV #64S, JHE C $:SET UP E CTOR 
MOV #DSWR,S ::SETUP FOR A HARDWARE SWICH REGISTER 
MOV SDDISP, DISPLAY ;;AND A ISPLAY REGISTER 
CMP #-1,aSWR >; TRY TO ERENCE HARDWARE SWR 
BNE 66 ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
‘AND THE HARDWARE SWR IS NOT = -1 
BR 6S$ ::BRANCH IF NO TIMEOUT 
64S: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 


O06 
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CZR608.P11 02-DEC-77 10:46 INIT 
012444 oo0002 RTI 
3554 7 46 01 737 000176 901149 65S: MOV ;;POINT TO SOFTWARE SWR 
S 012454 012737 0174 1142 MOV aise So eae DISPLAY 
3236 Ole%62 012637 000004 66S: MOV (SP S OSERAVEC ;;RESTORE ERROR VECTOR 
3008 012466 005037 001336 CLR SPASS ;;CLEAR PASS COUNT 
59 0120472 132737 000200 001351 BITB #APTSIZE, SENVM ss teat USER SIZE UNDER APT 
3560 O1 O014 BEQ 675 ?YES,USE NON-APT SWITCH 
sees i : 12737 001352 001140 one MOV #SSWREG, SWR ::NO,USE APT SWITCH REGISTER 
1251 RESET ;CLEAR THE UNIBUS 
3564 Ol 127 ooo0004 MOV #6, JBERRVEC *SET TIME-OUT VECTOR 
6S O1 7 0006 CLR : RRVEC+2 
1 1 3143 CLRB STTYP ;CLEAR OFFSET TEST IDENTIFIER 
356 i 1 137 CLRB DRVERS :CLEAR ERROR COUNT FOR CURRENT DRIVE 
3568 Ole 1 135 CLRB ERRCNT ? CLEAR ERROR RETRY COUNT 
3269 12540 : 1 CL STSTNM :SET TEST NO. = 0 
18344 18 7 1 003152 MOV #1, HLPOVL i SET FILE OVLD INDICTR 
3671 017652 1 7572 TYPE D2R60 ; TYPE 
3078 012556 1057 153 TSTB ADT IPE :SEE IF TOR NOTE SHOULD BE TYPED 
73 Ol 1 BNE dos *BR I T 
3574 012564 104401 4342 TYPE NOTMSG : TYPE OPERATOR NOTE 
3575 Ol iS3 INCB TYPE >SET F FOR NEXT TIME 
3278 12574 O1 000060 40S: MOV 8KBDHDOL DSTKVEC > LOAD VE TOR FOR TTY KBD 
5 1 12737 000062 MOV #PR4, aetKVEC+2 ;SET KBD PRIORITY = 
3578 012610 013701 003050 MOV RKVEC Ri ;BDOR. OF RKO& VECTOR STORAGE 
3579 012614 Oie7el 722 #I.INTR, (R1)+ IT TO RKOS R 
3580 Ol 1 MOV RKPRI (RI jSET RKOS PRIORITY 
3581 O1 1 CLRB TSTING ?CLEAR “RUNNING TESTS” FLAG 
328¢ 1 1 177776 MOV #PRO, a8PS * ALLOW ALL NTERRUPTS AGAIN 
1 1 MOV #PRVCMD,R1 ;ZERO OU PREVIOUS COMMAND 
3584 O1 1 MOV #6, RO :SET COUNT R 
1 42S: cLR cRli+ ; ZERO 
1 BNE 42$ ;BR IF NOT DONE YET 
12654 CLR STALLS ?DON’T ALLOW STALLS YET 
1 JSR PC GTSWRG OPEN WARE SWR FOR MODIFICATION 
12664 042350 44S: MOV #176543,SHINUM INIT. PSEUDO-RANDOM NOS. 
si Ol 042352 MOV #12 Hob, SLONUM 
353¢ 1 JSR PC GETT i SEE IF RKO6 OR RKO7 & SETUP 
359. 1 TSTB MDFL: >SEE IF DE AULT MODE 
94 012710 ALLSYS BR IF NOT DEFAULT MODE 
59S Ole7le MOV SVECT1,RO :GET APT RK VECTOR AND PRTY 
536 12716 903046 MOV SBASE , RKBAS :GET APT RK SE ADD 
1 1351 BITB 1T7, SENVM *SEE IF NO SIZI 
3598 0127 BNE 185 :BR IF NO SIZING 
35 12734 MOV #AVECT1 RO :GET DEFAULT VECTOR AND PRIORITY 
1 ca 003046 MOV #ABASE , RK ‘GET DEFAULT BASE ADDRESS 
3601 O1e7 18S: MOVB RO, RKVEC :STORE VEC 
36 O1e7ee CLRB RKVEC+1 CLEAR HI BYTE 
36 12756 SWAB :GET PRTY INTO BITS S-7 
3608 016760 BIC #177437 ,RO CLE THER BITS 
36 12764 MOV RKPRI ‘STORE RKOS PRIORITY 
3606 012770 005510 MOVB #’°A, SUBSYS :SET SUBSYSTEM NAME = 
3607 012776 IMP DFL TOR :GO CHECK ALL DRIVES 





nr ee 


KO6 
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CZR6QB O2-DEC-77 10:46 INITIALIZE THE COMMON TAGS 
E00 
311 + REKRKRKAAAKRARKAARRARAAAEAF RAAKAAAAAARAAAAAHEAASHAALRARLAAAARAKRAAAAA AKER 
318 iSerTL TEST O PARAMETER INPUT ROUTINES 
sels 8 ASST EGat att 2LeStStEnS ng gare vonetr neeeeeeneeeeee 
17 013002 1 401 001325 Atteys: TYPE ean Ree” TYPE. <CR>, <LF> 
ig Ol 001102 CLRB : STN TEST T Ad. = 0 
19 013012 1127 000101 MOVB HITT INDICATOR 
1 g 127; 005512 MOV sORVLST, Rl IVE «3 tier ADDRESS 
i Ol 127 000021 MOV GFE DRIVE LIST 
3622 013026 1 2s: CLR OATS 
3ee3 13030 DEC RO 
24 0130 i3 BNE 2s 
3625 013034 012704 oo0ssi2 MOV sORV LST,R4 -GET STARTING ADRS OF DRIVE LIST 
soe8 ASK FOR ORIVES TO TEST’ON THIS § 
7 Q13040 110337 010112 ALLS MOVB R3, SYSDRV+7 a UrF ey SUBSYS NAME FOR PRINT 
3658 O1sbe0 Apuza> BSg4ea oak ives REA {neu pe eere tS SuBsysTEM 
3630 O1 Oi ALLSYS ; BURN SADDRESS 
3 1 OL ALLSYS 3 ( TURN ss 
i Doe $3, RO 63 Mi INPU - 
3634 013064 1 BEQ 63 : ASK AGAIN 
35 Ol 000017 CMP #15. ,RO :SEE IF MANY CHARS TYPED 
36 Ol BGE 123 BR NOT TOO MANY 
37 O1 74 1 ooseie 10S: TYPE ,» BUFFO 56 BAD INPUT 
3638 i 3100 1 001324 TYPE zgoues OD ASK AND <CR>, <LF> 
340 piste 1 12$: CLR Ri CLE Char POINTER 
3641 013110 27 OOS212 oo00060 14S: CMPB BUFFO(R1),#’°O ;S F VE NO. “ 
364 013116 BLO 10$ ?BR TOE HO_ BAD, inPU 
4 131 1 o0S212 000067 CMPB BUFFO(R1),#°7 SEE IF 
3644 0131 1362 BHI 10$ ?BR TO E Pete de NPUT 
gous ot 1 O1 NC Ri : NCR 
46 0131 0100 CMP R1,RO ; I 0 CHECK 
3647 013134 1406 BEQ 16 ;BR ALL We CHECKED 
48 013136 1261 o0S212 oo00s4 CMPB BUFFO(RI),#’, SEE IF THIS IS A COMMA 
3649 013144 353 BNE aie :BR NOT A 
3650 O01 146 01 INC 1 : NCR CHAR POINTER 
3651 6131 000757 BR 14$ *BR T ONT INUE CHECKING CHARS 
36 -PUT DRIVES FOR THIS gyegysten INTO TO ScRAT List 
36 013152 012701 oossss les: MOV #SCRLS CRA CH IVE LIST ADRS 
3054 13156 gos0ei cLR (Ri}+ GF EAR OUT SCRATCH DRIVE LIST 
3696 O13iee Gel CLR (R1)+ 
36 13164 il CLR (R1) 
3658 013166 CLR RO ; INIT CHAR POINTER 
3659 0131 116001 005212 18S: MOVB BUFFO(RO),R1 ;GET A DRIVE NO. 
3660 013174 O42701 0060 BIC #’0,R1 ‘STRIP ASCII Its 
3061 13200 116061 Seie oossse MOVB BUFFO(RO),SCRLSTER1) - SE CII DRV NO 
62 O01 062700 o0000e ADD 2,RO ;POINT TO NEXT DRIVE 
3663 O132l2 105760 OOSe2i1 TSTB BUFFO-1(RO) ?SEE IF NULL CHAR YET 
4 013216 001364 BNE 8S :BR IF NO NE Y 
3664 013216 F NOT DONE YET 
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¢ RbGB0 RKE DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 77 SEQ 0076 
O2-DEC-77 10:46 TEST O PARAMETER INPUT ROUTINES 
6S :LOAD DRIVES FROM SCRATCH LIST INTO TOTAL DR 
66 013220 oos000 ALLSY3: CL RO s INIT sc OA Bay CL LIST POINTER 
7? 013222 6014 oossse ALLSY2: MOVB SCRLST(RO), (RMD pHs yPRIVE INTO INTO. ACTUAL LIST 
13286 1411 BEQ 225 


IMP RVTST pass 1 
-ASK IF THERE IS ANOTHER suasysTén TO T SEeCiF 


NN 
oO 
be 


SERRE 
R2oR 


hh hh eh bb 
4 
wa 
Cc 
wn 
< 
w 


10174 28s: FOR _ANOTH BNOTHER SuBSYS 


=e ft re E BA Oe Pet SOIT oer 

3651 813839 ASBYS? oosssy Cae” «Ra SDRC ST#a4. SF BveRrt ow 

3672 O1 1 BLO 2 BR Yer 

oa Blasts AGH 919345 Fee PROVE ey chore (THAN le BarvEs ENTERED £~ 

3e52 8135285 888627 ooo010 a FO, s2, HINER ScRaTcH Oeive Uist Bo pointer 

3677 013260 103760 BLO aLlsye NOT YET 

3638 1 04401 010130 = OR TYPE - Titre? —_ sus ferth, WILL TEST DRIVE(S) ” 

3680 biaeee 37 005444 cLR scRACH a OUTPUT piste 

385 813855 Bbebor CR OT NIT COUNT OF LISTED DRIVES FOR SUBSYS 

3683 ot 6037 OOSSSE OOS444 23S: MOVB BLST(RO), SCRACH ; SEE ir THIS Iv a Ist 

i i 70 Ts! 34s ie Prete ri Re 

ol 1 4u01 012141 Fee. » COMMA hed OHM 

13316 1 1 444 2us: TYPE SCRACH 

385 Bess Bpee8 aed INC Bi Inge Aas: FL ISTED DRIVES FOR THIS SUBSYS 

36 al 1 000010 ; cnr ae iF HECKING LIST YET 

a ee mae Re gry. oe ii 

3696 5 000120 ene re #’P SEE I > P 

3697 013352 101035 BHI ASKSYS 

3638 Bt s3e9 a8i0 7 003126 TStB Bs. ie ae START 

700 137 013734 
3424 JSR PC, ROCHRS Reno SPONSE 

3706 13966 oes" (3) RETURN ADDRESS 

3707 i TST >SEE IF NULL INPUT 

708 8 ai? BEQ ASKSYS iB IF NUL > Heeb” TO ASSUME <N> 

7 i 000131 oos212 CMP #’ Y, BUFFO :SEE TF CY <Y> 

3710 013416 OO0100e BNE BR E NOT < 

Bik Giisl BS BATIE coscie aos. Ee MiLlero | See a i yy eae Ane 

3713 0 001405 ° BEQ Asksys ‘BR IF <N> 

Sie Bias 1BMBE BREE pe Bites iy eye RC 

3716 013444 bo07s0 BR ae ?GO ASK AGAIN 5 

3718 5204 OR 220 START - GET NAME OF SUBSYSTEM TO TEST NEXT 

3719 013446 105037 001102 ASKSYS: CLRB STSTNM ;SET TEST NO. 

3720 013452 104401 007752 TYPE , TYPSYS SASK FOR NEXT SUBSYS TO TEST 


pn 


06 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 78 SEQ 0077 
CZR608.P11 02-DEC-77 10:46 TEST O PARAMETER INPUT ROUTINES 
37 1 134S6 904737 023424 JSR PC, RDCHRS mene me RESPONSE 
ved ities Blac fase 1163 RETIN EEBEEss 
37 3472 001765 BEQ ASKSYS BR EE NULL NULL 19° ASK AGAIN 
7 : 727 OOS2i2 000101 otis BUFFO,#’A te ner CHAR < A TYPED 
5 iBuuoi 01329 4S: TYPE" SOUES FCBe 895 AND-<CR> , <LF> 
3731 BR ASKSYS ;GO AGAIN 
3035 o00S212 000120 6S: che BUF 0,#’P SOME B08 CHAR > P TYPED 
3734 113737 gose12 005510 nove BUFFO, SUBSYS i STORE CURRENT suB SUBSYSTEM NAME 
: re ppeeta 8S: cnPe tRaOyS, etasse ie F 8. paiva US ‘se FOR THIS SUBSYS 
g Phe 3s HINA pO POINTE 
3739 Oe o0sss3 CMP RO, #ORVLST+33. j SE E IF WHOLE LIST CHECKED YET 
fa ai 010652 ¥ NODRLS Hye oN “NO. Hes LISTED FOR SUBSYS” 
3545 Ae, Boaogs Qs: SU cxeys 1 BO NP tO bow BYTE OF List ENTRY 
a bfBaa7 bosses CO ORE POINTER 
374S ;OPEN RKO6 VUNTBUS eee FOR A nod FICATION 
a4 : azide 903046 HOV, rconba (SP) PUT UT OLD VALUE ON § STACK 
374 4737 921026 JSR PC GET , SET N NEL RKBAS VALUE 
12637 0 ved 


OL 
; OPEN RKOe VECTOR Seabee Fon if 
Hoy ob 


REONSERROBAEER RiWe Rens SRReEsseNRTS 


ee ee ee eh ee ee ee ee ee fn fe Fo Fb be Fe 


x 
-_ 
BOOOOOOOOOOOOOOOOO00S0O C000 O000 DOOOOOOO0O0O 000000000000 00 


750 
, 013746 903050 HOV RKVEC ify VALUE ONS STACK 
ee 
3753 004737 ates JSR PC. GETPRM ob ger Nel NEW REKVEC VALUE 
4 12637 00 V (SP)+, RKVEC i 

3755 -OPEN RKO& INTERRUPT HANDLER PRI i E ee YB FOR MODIFICATION 

3756 1374 003052 Lis: MOV RKPRI,-(SP) T OLD D VALUE OF PRIORITY 
7 1 ast (SP) i get IT INTO BITS 0-2 
1 ASL (SP) 

7 16 ASL (SP) 

3760 16 SWAB (SP) 
376 1 7727 TYPE RKPRTY ose PRIORIT Y=" 

2 G 7 1026 JSR PC, GE TERN T KPRI VALUE 
3764 020027 o00004 CMP RO, #4” yee F AT LEAST LEVEL 4 

3765 14 BLT $ ;BR IF NEW VALUE TOO SMALL 
3766 000007 CMP RO, #7 *SEE IF LEVEL 7 OR LESS 

767 1 BGT Leg *BR IF NEW VALUE TOO LARGE 
3768 00 SuAB RO :GET PRIORITY INTO BITS S-7 
3770 3704 00 ASR RO 
3771 3706 906200 ASR 

77 3710 0037 903052 MOV RQ RKPRI ;STORE NEW VALUE 

77 714 OL 00132 TYPE CRE 

774 3720 04 BR bRVTST 

3775 3722 104401 ooSe2i1e 12$: TYPE , BUFFO ;ECHO BAD INPUT 

3776 3726 104401 001324 TYPE *SQUES 


SS ete ete 


CZR6QB.P11 


CYIEIEELIEAEIEIALIEIILS 
BPBvESIVIaagawa 


OO 0 bb bb bb 


WWW) 
BBoD 


setnnenes 


BRBBRRR RBBB 
Ve OOO Ew O 


Ww 


WW 
NN 
2 


o 
r= 
GW) 


= tel 


8 


8 850 
~ 
ras 


= 
£ 
~ 
bad 


Oe 


S93 


SaRERS TREE 


on 


r 


0000 
ve-oN 


bee 
8 ae 
= OwOn 
Ww 
N 


SELES LLEL CLES SSCLS 


et hh ee 
FESLOPNOLTOENOSLD TLV 


eT TTT 4 


BONOOOOOOOOSCOO000N 200000 


POT PO e  e e 


i 
<£ 


CZR6QB0 RK& DR CPT PROG MACY11 
Oe-DEC-77 10:46 


013732 000741 


8 
— 
<= 


fee & 
oN Se 


4 
003133 
000001 
002001 
o0S444 
005444 


001000 


30( 1046) 


010331 
003155 


001102 


001351 


OOSSS6 


001351 


000010 


000010 


NO6 


02-DEC-77 11:48 PAGE 79 SEQ 0078 
TEST O PARAMETER INPUT ROUTINES 
BR 11S ;GO ASK AGAIN 
DRVTST: MOVB PASSNO, SRPASS+18. ;SET PASS NO. FOR PRINTOUT 
TYPE SRPASS ;TYPE “STARTING PASS x” 
CMPB 8’ 1,PASSNO ;SEE IF Pass 
BNE ?BR IF NOT PASS 1 
IMP TSTi :START PASS 
2s: MOVB #4, STSTNM :SET TEST NUMBER = 4 
IMP Tsts :START PASS 2 
-ADR 200 START - COMPILE SCRATCH LIST OF DRIVES TO SIZE 
OFLTDR: CLR ;CLEAR DRIVE NUMBER 
MOV SDEVM,R3 :GET QPT DEVICE MAP 
BITB #8117, SENVM :SEE IF SIZING 
BNE 1$ 7BR I NO SIZING 
MOV #377,R3 :SET UP FOR SIZING 
1$: MOV #BITO,R1 :SET BIT POINTER 
2s: CLRB SCRLST (RO) : NIT I DRIVE ENTRY 
BIT R1,RS SEE "wr DRIVE IS REQUESTED 
MO RO,SCRLST(RO) ;MARK VE IN SCRATCH LIST 
BTSB #'O, SCRLST (RO) I CONVERT NO. TO ASCIT 
4S: ASL R1 :SHIFT BIT INTER 
INC RO iN NT NUMBER 
Cc #10,RO : F ING ALL DRIVES 
fe i Ee hoe Si 
BITe 88177, SENVM jSEE IF SHOULD SIZE 
10S: MOV #ORVLST,RY :GET Yee LIST ADDRESS 
MOVB SUBSYS, R3 i GET YS NAME IN R23 
MOV 4,R1 ?GET List ADR 
OV R4’ DRVPTR SET IN TO FIRST DRIVE TO TEST 
11S OCR 1? 4 BEAR A DRIVE LIST WORD 
DEC ; DECREMEN iia 
BNE is :BR IF NOT YET 
IMP ALLSY3 :GO MOVE SCRATCH LIST INTO LIST 
;REMOVE NON-EXISTENT DRIVES FROM’ SCRATCH bist 
8S: CLR RO ;CLEAR DR NUMBER 
128: TSTB SCRLST(RO) ; SEE iF THIS DRIVE IS MARKED IN SCRATCH LIST 
_ -BEQ 14S ?BR IF NOT KED 
x = MOV RO, DRIVE jSET DRIVE R FOR SCNDRV 
JSR PC‘ INITSS :CLEAR ORIVER AND INIT S.S. 
3S: BIC aie (Re) :DISABLE RKOG INTERRUPT 
MOVB VE .RKCS2 
iste TyPrit ;SEE IF RKO? 
MOV #GO, (R2) Bt ce Set GO BIT FOR RKO& IN RKCS1 
S$: MOV #<CDT!GO>,(R2) ;ELSE SET GO FOR RKO7 IN RKCS1 
7$: CLR SCRACH ?CLEAR STALL CTR 
15$: INC SCRACH ‘INCREMENT STALL COUNTER 
BNE :STALL FOR SEVERAL MILLI-SEC 
BIT #MDS,RKCS2(R2) ;SEE IF MDS ERROR 
BEQ 18$ :BR IF NOT 


B07 
eSReos Pit’ heal aslok 30104) EOC?” BARANETER INPUT ROUTINES scat auth 
MO’ . 





33 014 000001 vB #SELORV P.CMND(RS) 
14, HOV ( 2),P.ESi (RS) ; 
1 J PC, ics 1 : 
14 al eS ; 
iq oos424 teen T,RECODE 
14 IMP BLT ; 
aie 5 18 Fe SROETETSE. conoend 
: iy Hove A BONE 3 
8 14, 476 MOV NEWON ; 
é iy 003056 aoe OE 4 pen, iREST peas ADDRESS 
Bie 014314 005476 che 8377, HON ; eng DRIVE EXISTS 
848 O14 14S: INC RB : RETURN IF ORIVE IS ABLE 
e2 Bh get ie reece reye Us 
€ 14 IMP 10$ ; TO ui T osEbEC TED DRIVES 
: 14340 16S: CLRB SCRLST(RO) ; & gNvaL IVE FROM LIS 
3853 14 BR 14S >CONTI CHECKING THE LIST 
ss 
sg FY + SEKKKREKEEESESREKSKSREERSKKS RARER EREARRERRRRERERRRRRERRRARERRRKREKEE 
BC jt ST MOUNTING OF TEST CARTRIDGE FOR PASS 1 
3862 i Feros Pack. Oy iH TART at s*. renin 
Seca $i ete a 
3965 i a ae SATU ee 
) Bnei tok pe ao FILES, AND 
3868 : * Cia! THE SRIVE AND “B80 S108 SERIAL 
3650 14346 00 4 Es sscoosssnqesssucsssvesesnsssnneeeennseeneesssnonnononus LEREEE 
3876 014350 012737 999001 001334 Z HOV #1,$T TN Te TesT NUMBER AN BET MAIL BOX 
3874 biases b04939 021170 JSR PC; INITSS i INIT ALIZE IVER PARAMS AND SUB-SYS 
3875 014366 004737 020774 JSR PC’ PREPK OR POSSIBLE KBD INPUT 
3876 014372 004737 Oe2110 JSR PC; MTCAR 
3878 
3878 
a1 
gees 5 preeeeet eee cle REMOURITE DATA fect eee 
3883 ; ATES Te BASIC READ/WRITE DATA TEST 
3885 ti THE PROGRAM PERFORMS A WRITE HRITE, CH CHECK RATION 
86 i USING A “WORS CASE DATA PA PATTE IATE SECTOR 
3887 1 a FOR THIS DRIVE (FROM TABLE A BNTALL SURFACES THE PURPOSE 
3888 1% OF THIS OPERATION IS TO VERIFY OTE BASIC READ/WRITE 


aiarnacenreeveiverey 17 


RRL ERR ERAN, 


See oe meaes 


DdB Dod 
Rows 


ee 


wo 
fwre 


£ 


DR CPT PROG MACY11 30( 1046) 
O2-DEC-77 10:46 


112737 
004737 


ie 

o24S02 
0031S4 
003133 


booooe 


OOSS&6 


OOS666 
Tiéoes | BbSeee 


Pa3ad5 
89882 
BSoL ae 


ooo00S 
000005 


Ky 
000003 
7 Oeed4e 


CO? 


02-DEC-77 11 
Te basré be Sok E Shara TEST <8 Suse 
5% CAPABILITY OF THE DRIVE ON PASS 1. THE ENTIRE SECTOR 
# 1S i WR TIEN WITH THE REPETITION OF THE DATA PATTERN SHOWN 
i# 
CL Reepaeeen regen meeps gain 
v a2, STESTN iSeT ult T eye ae IN APT MAIL BOX 
ie Pe: ETT I PARAMS ; PARAMS AND SUB-SYS 
J PRB Tarte FoR po Stele kBO INPUT 


py &- ale PATTERN si aoal 

eet uP TERS’ 

LOGORV, RO G57 eogtene DRIVE. VE NUMBER 

ast RO at 

rst 8 E. F RKO? 

HOV Henna, P. ovuibhet CET CYL_# FOR THIS DRIVE 
nove TABLEACRO) ,P. SECTCRS) ;GET SECTOR # FOR THIS DRIVE 


1$: pia’ TABL7A(RO),P.CYLNCRS) ;GET RKO7 TABLE 
ROVE t ACRO),P.SECT(RS) ;GET SECTOR # FOR THE DRV 


es: BY SRHBHF pP LB CROS*°) cer word COURT FOR 1 SECTOR 


;WRITE THE DATA 


arene pepe cannsigy DeITe ThE SERAEE COMMAND 
PeADRVEAL [: PSO op Re WRITE check “Onn 


ene pack 


P.TRCK (ee Seer FALL T NO. 
ia P. TRCK (Re } #2 Faces WRITTEN YET 


iETES WRIT T ONO. Cc Par LOCK FOR CURRENT DRIVE 
i SECTORS sy qSRIVE WITHIN THE 
i. SYLENDER BORD br TH IPBLEG Mach SUREPRER, USING, 1 TALES. LOGICAL DRIVE 0 
H BCOCKS Ake tHE OVERRDTE AND cOMBRTIBILI TY’ TEST DATA TO °™ 
japgneenaegareeatoantenebineennennvencesventesneeneesneensensees 

MOV #3, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 

JSR Pc’ SETTUP :SET UP FOR LOOP ON ERROR 


| 
| 
LTRS TRS RRRR ERE H NTT E OVRURT AND COMPAT CYL BLOCKS FOR CURRENT OR 
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DO? 


O2-DEC-77 11:48 PAGE Be SEQ 0081 
T3 WRITE OVRWRT AND COMPAT CYL BLOCKS FOR CURRENT DRIVE 


J&R FE: ARELRS © RETARLZESOBLWERSPO*OUE SHB FUP-S°S 
a a 


4S: TB TYPFMT 
BNE z HEY st 
MOV ABLEC(RO),P. ew : T OVRWRT CYL FROM TABLEC 
JSR PC. , WRTBLK HINner THIS. 1 VRURT CYL K LON ALL ~SURF ’S 
HOV TeELECCROD, P. cvLht MEET f COMPAT CYL FROM TABLEC 
1S: i" Vv TRBLZECRO? » ,P.CYLNCRS) 


& 
MOV TABL7C(RO),P.CYLN(RS) 


2s: Bb eo eri | ROLEC AT ESTE BRK ON ALL SURF’S 


RO, # 1 CURRENT ZONE YET 
agh : ROTBLD ; OT are. TABLED SEVERAL SECTORS 


8$: Fe, nd INTBLD Rea One Nit A vBLUES> INTO TABLED 


TSTB TYPFMT 
HOV PpeLeccRO), P. onibhel?  . START OVRWRT CYL FROM TABLEC 


TABL7C(RO),P.CYLNCRS) 
JSR PC, WRTBLK ;WRITE THIS OVRWRT CYL BLK ON ALL SURF’S 


ulwW 
3 
< 


= 36 AE 36 AE A 0 4 a J J A a 0 a a a a a a a a aE 
DISMOUNTING OF TEST CARTRIDGE IN PASS 1 


BE RROcRen OIRSCTS TE OPHRET OES T Op HNON IN ORE RcuRS 
fie he Fade R DRIVE TO ree! ON THIS SUBSYSTEM, THE 
(Pelee tke BAR Lat HEU  SRPWs2"R Bde Caer 
fe C3) IF FuERE 15 ARO THER SueSySTER M ten to. pear Sea PRs 4 an NIT HALTS. 
i el or Ae"acsoken Tele the obese foth 


FOR PASS 2 ON THE NEXT SUBSYSTEM, AND 


RCC RCC CRC RC CC Ce 
m 


hada na Ati 


+8T4 
MOV #4, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 
JSR PC; SETTUP :SET UP FOR LO 
JSR PC; INITSS : INITIALIZE DRIVER PARAMS AND SUB-SYS 


Cc 
Cc 


S556 E 


OOOOOOOOOOOOOOOO0O00000000 


VOLENUTORD 


<= 
Ni 


fee bes a hee ee Bo fe pe 


OD NO UIL Wr 


etefofotafatatatatetete) 


O000000 
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oosss4 


005510 


010517 


oosss4 


010331 


010574 


001334 


003155 


EO? 


O2-DEC-77 11:48 PAGE 83 
T4 DISMOUNTING OF TEST CARTRIDGE IN PASS 1 


ISR PC PKB ; PREPARE FOR P ss E KBD INPUT 
CLRB TST ING T Pbk APE 
JSR PC, OMCART Binec ATOR DISMOUNT PACK 
ADD VPTR EMER DRIVE LIST POINTER 
MOV TR,RO 
TST RO) iF ALL DONE WITH PASS 1 YET 
BEQ g DONE ITH Pass 1 
CMPB 1(RO), SUBSYS ae WITH THIS SUBSYS YET 
BNE $ Monge H THIS SUBSYS 
CLRB TSTNM iets 
vg: Hove Zab stReowan, ae BROS SuasYs 
o8: TYPE » STREOY ee wee BBR Pass 1 ON NEXT SUBSYS 
ONP 204 R Gan RESTART AT AT T PROPER ADRS 
8S MOV SORVLST, DRVPTR RE- ay IVE List POINTER 
TSTB 5 LAG 
MOVB #’2, SRPASS+18. fe: NO. = 2 FOR PRINTOUT 
TYPE SRPASS 5 TARTING PASS 2” 
IMP tsT :GO_ START BS 2 
12S: MOVB #’A,STR220+39. PUT SUBSYS INTO MSG 
TYPE ,StRee0 i TYPE TART MSG FOR PASS 2 ON FIRST SUBSY 
HAL >HAL ESSOR SO THAT OPERATOR CAN RESTAR 
IMP 220 : AT THE PROPER ADRS 
5 jShagegeunnasnnsssesesstcstsnne tates 
j ATE T MOUNTING OF TEST CARTRIDGE FOR PASS 
1 i THE PR “START Ss 2” THEN, T RATOR 
t MOUNT Thetieo' err Fh a, Pen cHecks LORDS HE HEADS, 
1 i BS ca "ey PAs: KS ORIVE | 
i * fs RON SECTOR o 
1 i $f DSTORE THE BAB SECTOR Pipes AND 
i it ALSO, aie THE 0 Ive 8 RIAL NUMBERS ( ARTED 
F + MEMRAM RAR RRR RMR RRR MRR RRR RRR RRR RRRRRRRRRRRRKRRRERKE 
Vv #5, STESTN T TEST R IN. APT MAIL BOX 
MR Oa! + AFT We Por LOOP ON 
J5R PC, NITSS tPRITLAL Toe BRivER NOBRENG AND SUB-SYS 


PC’ PREPKB ? PREPARE FOR POSSIBLE KBD INPUT 
MOVB #°2, PASSNO >SET PASS NO. = 2 
JSR PC, ATCART 


= RRMA RRA RRR REAR RR RRR R RARE RAR RRA RARARARKAKKRKKRKRKKKKE 
tkTEST & OVERWRITE TEST 


.% 
+x THE PROGRAM PROCEEDS TO TEST THIS DRIVE’S OVERWRITE CAPABILITY. 
+% FIRST, THE APPROPRIATE CYLINDERS IN TABLE E FOR THIS DRIVE 


T 
x 
STS: SCOPE 
MO 


SEQ 0082 


FO? 









CZR6QB0 RK& DR CPT PROG MACY11 30(104%6) O2-DEC-77 11:48 PAGE 84 SEQ 0083 
CZR60B.P11 O2-DEC-77 10:46 Té OVERWRITE TEST 
S082 i BER OYPRARTITEN MU EEUGRU SP Tie "Wer PEan Lardadee 
‘ = i BRive Ose8" und 2, IVE 1 USES WORD 1, DRIVE i0 uSES 
4061 :% T NIS REA CK BY THIS DRIVE 
;* 100, , 
063 ;# “i "200 UaTCRO- N.; Fa Bo BOTH 
4065 1 a TA. NG THIS READ, AND IF 
4O66 1 3 TERA NE WH oR VES para HA NOT 
4067 1 a FOR THA IVE S 
4068 a s AT THE NEXT SECTO 
4069 i TH THA oe mB T ore WITH ey OF = THE ABOVE 
4971 i hi sreelroaste fe eadee. = 
4 23 i ay REC +h H TRA (0 Act Oe ( te S TED. 
075 oe KEKKKAEKELKAEERAKELKE RK MEAS KHEKKRSRKEKK KS KERR SERRA KALE KARR HEE KRE 
4076 015204 téte: 
4077 O1 000006 001334 MOV 86, + STESTN ;;SET TE pe IN APT _fiAlL BOx 
woes Blesks Soiree BTTzs 7 reine | sens 
4 i 117 Tok NIT mx ; INIT a PARAMS AND SUB-SYS 
4080 0152 020774 iER Hers KBD INPUT 
4 Oise gog001 003127 i i: AL Ty "Ese 
4 1 14 Roe ich pre 00/200" FLAG 
4083 ; OVERURITE™ Me TATE cy’ S, toe PE Nee 
438s gi5835 117 000001 Pegrnt corek 
4 1 Sere " T - 
4087 O1 ; MOV H of oN =? 
088 i 4 123 000001 nove TA peel ; WRITE ATA COMMAND 
40 1 MOV »P.CYLN(RS)  3SET 9h ING RITE CYL FOR THIS DRIVE 
1 ASL 3GET DATA PATT INDEX 
4 1 51 aTA G :GET PATTERN 
4093 015310 MOV T a NTO BUFFER 
4094 015314 o00010 MOV sith pB8L0 (RS); S$ 
4038 1 1 000014 BIS RST CBS )’s NCREMENT INHIBIT 
1 13 ocoole MOV *,P. te FoenT COUNT 
1038 12338 cumini Bear Format ok 
1 4 oo0012 MOV §-15360. P. MeCns T 5 Set ey COUN 
4100 O1 435008 6S: JSR Pc, SVPR oF ORANSFER 
4101 Ot 027570 JSR yeni nek The Sr 
4102 O1 024412 oo0002 D HOCO3,P P.CYLNCRS)’ ath 
4103 015370 : DEC ee F DONE WITH ALL CYLS YET 
41 Be ; READ OVERHRITE eS WITH RANGE F OFFSET 
4106 015374 112737 000001 003143 MO T y eaeange FOR OVRWRT TEST 
W197 g15402 12700 O066i2 _ nov HNOSCRO, RO FT SIR ADRS OF OVRWRT SCORES 
4109 015410 O20027 oD7112 ; CMP RO, #NOSCRO+192. HIN IF ALL SCORES CLEARED YET 
4110 015414 103774 BLO 108 ;BR IF NO NE YET 
4111 015416 012703 000007 MOV :SET CYL CN 
41.2 015422 113700 003154 MOVB COebaV, RO :GET LOGICAL DRIVE NO. 


i 





CZR6QB0 RK& DR CPT MACY11 30(1046) O2-DEC-77 11:48 P 8s SEQ 0084 

eSReos Pit os -pecn es 10:46 Té OVERWRITE TES 
4113 015426 01 gogude : nov BO, Pp CYLN(RS) jGET START OVRMRT CYL FOR THIS DRIVE 
dis oI 36 730 017305 133: 328 Be’ AC DBS (BO RE mar OFFSETS ON THIS CYL 
WHE Blew Gea7ec GEWS ooone © Ba GCP uLncnsy‘eficR Grete es 

D0 . . 

diig O1 7. 1 Bg ST4 Rove Asiatic: ; roy pir = 10072 FLAG 
ui33 Bt edes 023022 JSR PC, ROTBLD ROTATE T ED FOR NEXT CURRENT ZONE 
die 15470 7 000001 CMP R32. #1 >SEE I T ZONE YET 
41 15474 GT 2$ ;BR I 
412 15476 1 EQ 11$ : F_ON LAST CYL 
4124 015500 004737 oO20024 JSR PC. AVSCOR :COMPUTE AVERAGE OVERWRITE SCORES 
digs 015504 105037 003143 CLRB TStTyYP :CLEAR OVRWAT TEST INDICATOR 
u136 
4129 3 PKK RRRERRRRKRERARAKKRRERARERRRAKRERRKKRRAERARARARRKKRRRRKERRE 
1156 jr 7 DRIVE SELF-TEST 
4132 1 i UATES THE RIVE S AB LITy TO WRITE AND READ 
4133 i I TS Onn OWN DATA. at VARIOUS eof AR POSITIONS ON THE PACK. FIRST, 
13s i N TRBLEF é firs Dafve a8 N He ba 
HE fo Ry ate Bo "ih, 205, $0908, S08, £68) 
i136 iE HASaDRE ob BEBE TES Achat hn’'9R- 29-229 BRE Mons, 
4140 ;% COMPU A WHICH IS PROPOR 10 THe FAILING. OpeseT 
4141 x HEN, THE OR L READ ARE AVERAGED, 
dive i 70.c0H Tok, FOR eacR Sure -TEST FO EACH OFFSET 
4144 : i THIS SC AT’ TO BE THE STANDARD 
dius ;# FOR THE One seria IL Ok Bata BR SE Toy O FOLLOW. 
4147 H = PEEK KERRRAAR RARER RRR RRR RRA RRR R RRR RRR RRRRRRRRRKR RE REEE 
uiag pieets neta 000007 001334 i817: Roy a7, ™N T use T T_NUNBER I IN APT MAIL BOX 
uiey bieesa Bo 737 ae Jen 5 €; Se Tue ur FoR DRIVER O  eaRAnS A uB-SYS 
dis BizeS Bousas BSAdoq JR BG. ENT TS pane #5r POSeiBLe Keb INPUT 
4153 015534 005037 Oo07412 CLR NSSCRO INIT SELF-TEST SCORES 
4154 015540 7 007414 CLR R 
41 15544 5074 CLR R 
41 1 30 0074 CLR 
4157 015554 7 007422 CLR PSSCR1 
4158 015560 005037 007424 CLR PSSCR2 
W158 a 4 405037 47 CLRB DIF Hy Pag “CYL DIF = 100/200" FLAG 
4} MOV CYL C ATER = 6 
4161 015574 11 200 iS4 MOVB LOGDRV, RO LOGICAL DRIVE N 
4162 Ol AD #60, RO’ MPL E STARTING cve NO. 
4163 gt 42 000010 MOV #RWBUF .P. BALO(RS) -SET Bus ADRS 
4164 015612 7. JSR LODSEC ;LOAD R/W BUF WITH DATA PATTERN 
4165 oi" £ 012765 177400 900012 MOV #256. P.WC(RS) :SET WeRD COUNT FOR 1 SECTOR 
4166 Ol 11276 (0004 004 3% MOVB #4,P.SECT(RS) ET SECTOR | = 
4167 O15632 105065 o00005 : CLRB P. TRCK(RS) iss! ¢ RACK o° 
4168 O15636 105037 007432 CLRB NSCORO : INIT SCRATCH SCORES TO 0 


07 





CZR6QB0 RK& DR CPT PROG MACY11 30(1046) a DEC-77 11:48 PAGE 86 SEQ 008s 

CZR60B8.P11 02-DEC-77 10:46 DRIVE SELF-TEST 
ui$a BiBeué 185037 ctRe = NSCORS 
4171 7 LRB PSCORO 
alts ; es Pa 
4174 O1 6S: CLRB TSTTYP ;CLEAR OFFSET TEST INDICATOR 
Ui3e BIEESE 000001 Sbve BSE EK RT EMOCRS) oe ae I K COMMAND 
i272 Giese o8 Joe BE, DRUCAL es BERFORM SEK TO OO ace 
4179 o15714 tie 000001 MOVB BRDATA P. RS orbs jSEY RETE Ebr COMMAND 
4180 157. 7 “ JSR PC, DRVCAL ;wRtTE 8 os - 
4185 812358 35 BP9SR3 Coss Oye BR: RAL OEE iREAo! Puree At RANGE OF OFFSETS 
4183 015740 1 oo0000S INCB P. TRCK(RS) 31 
wie: Bieres ited 000005 - 000002 P.TRCK(RS),#2 ; ce IF, ity RRACKS DONE ON THIS CYL 
a8? 74 73? poonde oo00004 AD PE, eoscor ; ren eeeTOR BY & : hae 
i188 O1s7eb 1866 eae 000023 cnPS BeSECTCRS), 82 | ee CTORS Do DONE ON THIS TRACK 
4130 b1s 063708 024412 ADD HOLDS, RO ore eve NO. ae’ 1007200 
4191 O1 DEC R Re 
wigs Bleope BBY? aoney EE gygcon reve Be TeSe EGE Y=" 
1134 BL EROS etd 7 559953 CLRB PEs fv8 het ae ee Fah ago 
4196 
mes s + RERRRRRRERRE RAR REEMA RR ARRRRKRRAAARRRRRRKRRKRERRRRRRRRRRRKRRRRKRKRKRKKKE 
499 ; ATEST 10 COMPATIBILITY DATA READ TEST 
Maer if PRodHan PROCEEDS 10 PERFORM fre ConA fETLITY Bat ME Rc ABE 
4203 i OF THE PATI RNS WRIT Y Mey y SIN EACH CYLINDER 
ae FR Ne Ray eg a eR at 
‘28 if Bebe Babee Bragg ae bas Befeanites 
4209 % WHICH ORIVE’S Data at THAT INSTAN CORE 
4210 i FOR THAT IVE 1s DECREREN 0. Ny He TRARSEER TS. 1S con? TINUED 
me ib RO ea otesrate ries "ey ae 
4e13 i ie Soa oRTY VE 1S KE tery, ULE re, MY Be 1S a hedbits 
usie + D TO aEELECT TH F 
uste ie F slr feE EGi. THR BEE a hei mcieel oe rel Ben 
usta ‘e ‘ RKSs BRive fo SuccESerULT Y The BaTAHRITTEN BY ONE OF 
4219 :% THE OTHER VES, SCORE Cc TED. PaRATELY FOR EACH 
4220 1 i URFACE CTRAGK) T HE SCORES REVEAL WHICH DRIVES ARE 
Yee] * NVOLVED IN A SITUATION IN WHICH A PARTICULAR DRIVE HAS 
ueee iS DIFFICULTY IN READING THE DATA OF ONE OR SEVERAL OTHER DRIVES. 


s ERE ARAAR RAR RRR KAKA R REAL AERA AAA AREER ELAR KERALA KELLER RAEE 
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001334 


003143 


ean818 


o0001e 


000012 


003147 


001304 


001306 
000014 
001306 


"whee 
T10 


TST10: 


6S: 


10S: 
12$: 


; ADJUST 


14S: 


15S: 


16S: 
18S: 


; ADJUST 


-77 11:48 PAGE 87 SEQ cogs 

COMPATIBILITY DATA READ TEST 

SCOPE 

MOV #10 STESTN ;;SET TEST NUMBER _IN APT MAIL BOX 

ISR PC, SET uP ;SET vet F LOOP ON ERROR 

Jee PE" PREPKB SA ee ee OMe E ros iNeure 

MOVB se, TSTTYP act Cc FoR” READ TES 

CLRB DIF i100 CL "CYL L OIF = 100/200” FLAG 

Hoy BNCSCRO, GE eT READ SCORES 

cre RO, #NCSCRO+192. ETP & P sPacthee CLEARED YET 

MOV #6, ie ey” BLK CNTR =6 

JSR PC’ INTBLD i INIT T D 

nov Hot 4 Ri ans SET STAR CYL = 60/160 

BIS #0T fg Peat RED ? T BUS INCR INHIBIT 

MOV -16896. ,P. ) iSer CTOR WORD COUNT 

Bear TE F CTORS 

MOV #-1 .,P.WCCRS) ; F §5- CTOR WORD COUNT 

NOV Ri: P’CYLNCRS) fs wort, 2 ae 

JSR PC; + PeCYLN ; BO READS Wi WITH OFSTS ON THIS CYL 

He: BSGRPRCRE, © ERBAenETgS SoORES Te sum 

DEC RO ihe Fb WITH THIS CYL BLK 

ISR PE,ROTBLD BR It Ng ED of 08 NEXT CURRENT ZONE 

ROVE #1 Bie tbo ay ve bo" F 

DEC . - F bee ui WITH ALL FLAC BLKS 

FE C,Av OR BMPUTE vee OF READ SCORES 

CLRB sfs) "B's IND CATOR 

COMPAT RE mi rots (- or§ SCORES 

MOV RO'R SEI al CEORE POINTER 

MOV SDaVEET AO, Compute Bye RENCE OF 12 (DEC) AND 
‘ LF-TES RENEE FOR THIS TRACK 

aby tai POINTER IN R4 

rst CRO) + 961 Pas BRS VE LISTED HERE 

MOV $TMP11,STMPl2 1 TD FFERENCE 1 INTO STMP12 

ADD (RY), StMPle ; ADD AD SCORE 

CMP STMPl2, #12. ;SEE I 12 EXCEEDED 

oS bos gtmpi2 7 ae 

MOV stPle, (R4)+ ; v8 K’ abgusteD SCORE 

ADD #32.,R1 PRINT $8 ORES FOR NEXT TRACK 

CHP Ri, aAICSCRO+E4. ; SEE TF SCO E TABLE EXCEEDED 

COMPAT READ SCORES (+ OF$TS) BY SELF-TEST SCORES 

MOV #PCSCRO,R ;SET COMPAT SCORE POINTER 


R608.P11 O2-DEC-77 10:4 


4281 016334 012703 


28e 016340 012700 
. ei 016344 012737 
is O1e3se 162337 
ee tikes Oe 
4e88 016 pee 
4e89 016364 013737 
4e90 Ol Bei 337 
a tltaee Sarees 
4 at o127 
4e94 016414 1 763 
4e9S 0164 7 
4e96 Ol64ee 2701 
4e97 O164e6 0201 
4e98 016432 101742 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
431le 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
et 
43ee 016434 9o0000 
uase Spt atin phere? 
ee flees Bie 
4326 016454 004737 
ny tA 016460 112737 
43eS O16466 0137 
4330 Br euse 112037 
4331 016476 111037 
mT 01650e 10440 
4333 016506 01273 
4334 016514 012700 
4335 016520 012701 
4336 016524 110037 


le 
Ollees 


cenegeo RKE DR CPT PROG re ay 30( 1046) 


001304 


001306 
000014 
001306 


001334 


003127 


001306 


Ge-DEC-77 11:48 PAGE 88 
T10 COMPATIBILITY DATA READ TEST 


MOV #PSSCRO, R3 ;SET SELF-TEST SCORE POINTER 
24s: MOV #ORVLST :SET DRIVE LIST POINT 

MOV se ST HP LI : COMPUTE “fe a3 NCE OF 12 (DEC) 

: SELF- ORE FOR THIS track 

aby oy caaalias T POINTER IN R4 
ess: TST (RO) + Ger a OBR LISTED HERE 

BEG 28s :BR IF nore 

MOV STMP11,STMP12 PUT DIFFERENCE INTO STMP12 

ADD (R4)  STMP12 ; 800 0 FF TO READ SCORE 

MP stTmPl2, #12. ; SE! 12 EXCEEDED 

BLOS 26S BR IF NOT 

v #12. ,$T™Pl2 :SET SCORE = 12. 

26S: MOV STMPL2, (i244 ;PUT BACK ADJUSTED SCORE 

BR 25$ BR TO CONTI 
28S: #32. ,R1 ‘POINT TO SCORES FOR NEXT TRACK 

CMP R1, #PCSCRO+64. ;SEE IF SC TABLE EXCEEDED 

BLOS 24s ;8R IF NOT YET 


: ee ete ET CRORES DISHOUNT PACK, IN PASS 2 
ikTES TYPE TEST SCORES, DISMOUNT PACK, IN PASS 2 


:% 
i THe OVERURLTE 6 BND eh ITY pata READ T ST SCORES FOR THIS 
i DIRECTED TO UNLSAD ed en a R TEST AMO TO REMOVE 
i Hei Ft Peat TH ts SUBSYS, THE 
+ Sgt: vi THE ENTIRE TESTING AND 
i ME BROGRAM IVEES A 
i ie as ae a RS 3 200 os 
i alte Heres HE OPE T 3 REST RF AT ofn aes 2 226, AND THEN 
: My) HoT re bene one S TO TEST ON ANY OTHER SUBSYS, THE 
i PROGRAM sA POFFO he SAGE AND THEN IT HALTS. 
So ccomapcaamanesamnnmtanrenmal 
HOV gi TESTN T Tes T R_IN APT MAIL BOX 
a Pe! AITS6 Ya ze OER PARAMS AND usue-sys 
JSR PC; PREPKB POSSIBLE KBD INP 
; CONVERT "AND rvee te 1 BeoRES HALLOW TTY ESCAPE 
MOV DRVPTR, RO ;GET_ORIVE LIST POINTER 
move (RO) + fest rs+20. ;GET NO. OF THIS DRIVE 
TYPE RO), RESLT ;TYPE_ TEST RESULT HEADINGS 
MOV §NOSCRO,STMP12 GET POINTER TO OVRWRT SCORES 
MOV #0 RQ tINIT TRACK NO. 
S$: MOV #ORVLS :GET DRIVE LIST POINTER 
MOVB RO TRRBOF +1 :SET TRACK NO. FOR PRINTOUT 


SEQ 0087 


KO? 








CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 89 
CZR608.P11 02-DEC-77 10:46 Tl TYPE TEST SCORES, DISMOUNT PACK, IN PASS 2 
a3 a3 po? 4 6S 4 Be ct Out :GET ate OR TTY ESCAPE RQST 
4338 1P835 877384 TYPE Pe RC BUF ee TRECK HEAD) NUMBER 
4 1 MOV tR1)+,R3 TA 
4 3 16 CMP Rg, @0RVPTR iB Fat IT IS CURRENT ORIVE 
4 1 BNE 
4 3 : 4 TYPE SELF YPE UF 
4 : 8s: nove fg oRveur +2 fet BR VE NO. 
4 i MOVE R3,0R +1 ;GET_SUBSYS NAME 
4 16574 TYPE DR YPE NO. OF DRIVE READ 
4 1 10S: CLR BUFFO ‘CLEAR TTY CHAR BUF 
4 1 CLR UFFO+2 
4351 016610 MOV R4, STMP13 ;GET SCORE Dat NZE 
dee 16614 MOV (R4)+, BUFFO ?PUT AN OVRWR SEORE INTO BUF 
4 1 001304 MOV #4, STMP11 >SET COUNTER = 4 
u3e4 : o000i2 11S: cH BUEFO, #10. > SEE IF SCORE < 10 
356 1 OBE SPACE1 OPE 1 SP 
4 1664, 000007 12S: CMP BUFFO, #7 *SEE IF SCORE > 7 
43 0166 BHI 14S BR IF YES 
435 166 012170 TYPE PROMPT : YPE _~ 
4 1 BR ibs ; ONT INUE 
4361 O1 012147 14S: TYPE ACE2 TYPE 2 SPACES 
4362 O16664 12 16S: MOV BBUFFO, -(SP) ADRS ON STACK 
4 1 3174 ISR Pc, gushed Conver RT SCORE TO DEC. 
4364 016674 70 JSR P Ss 
4365 16700 1124 TYP TAB : TYPE AT TAB 
4 16 I 001310 ADD koe. STMP1 
4 167 16 7e o0S2l2 MOV MP13,BUFFO ;PUT NEXT SCORE INTO BUFFER 
4 167 1304 DEC STMP11 ‘eT NT SCORE COUNTER 
4369 0167 BNE 11$ Tyee <¢ AD SCORE SHOULD BE TYPED 
43 167 001325 TYPE SCRLF <LR> 
4371 167 TST {Rip ee Fut SCORES TYPED FOR THIS TRACK 
iseg 167 38 001325 Tyre ASCRLF iT ccnp <LF> 
4375 016744 000040 001306 ADD #32. ,STMP12 LING nent SCORE POINTER FOR NEXT TRACK 
43 O1676e 000062 CHP RO,#'2 L TRACKS TYPED YE7 
4378 ;COMPUTE, CON VERT. AND TYPE — "AYER TOV SER ALL SURFACES) 
4379 016760 020262 ISR pt, TRKAVG Aone OVER ALL TRKS 
4380 016764 ooSS54 MOV DRYPTR RO :PUT DRIVE NAME INTO BUF 
4381 1390 011312 MOVB (RO)+ RV+7 
4382 016774 011311 MOVB (RO) ,BADDRV+6 
u 1 001304 CLR STMPI1 ;CLEAR SCORE INDICATOR 
4 17 74ee 005212 MOV OVRAVG, BUFFO :GET OVRWRT AVG SCORE 
4 17012 0111 017026 MOV OAVERG, 22S 
4386 017020 011303 20S: TYPE é RV s TYPE “DRIVE X 
4 o7 17064 a TYPE “ TYPE WHICH Kino OF AVERAGE 
4389 917030 o0S212 MOV SBUFFO,-(SP) oe POINTER TO AVG ON STACK 
4390 017034 043174 ISR PC, a8$OB82D ; CONVERT TO DECIMAL 
4391 017040 043370 JSR PC’ 3#SSUPRS 
4392 017044 001325 TYPE , SCRLF i TYPE <CR>, <LF> 


LO? 


SEQ 0089 
CZR6OB0. RK& OR CPT PROG MACY11 30(1046) 792-DEC-77 11:48 fF. orenount pack, 10 Pees 2 
CZ2R6G8.P11 02-DEC-77 10:46 vail 
37 007430 o0S212 MOV commve . BUEEO ;GET READ AVG 
4 17050 01 
ee eee BB TUTE RE 
: 3 nats SCRLF TYPE <CR>,<LF> 
ee eee ;DISMOUNT PACK Of THIS DRIVE ; Ty eecare 
38 ‘ CLRB TSTING one T ALLOW T * rene 
aa 139 boars po3k5S SSR pe bncART :DIRECT OPERATOR TO DISMOUNT | 
a4 states u S sy D & ,PRYPTR t INCREMENT DRIVE LIST POIN 
4 1? 6 at Rov BR a TH PASS 2 YET 
ide 13t 0 ao : TST (RO) F ALL nf Pas 2 
Sis Bistee abae) File filo» suesrs Bee "GeBe"bLGh Yate aveers ve 
“ds B17 158 001 a BNE 24s me Serie TERY nos H THI 
407 bistae T2737 B sseeatitl MPS r48 2 ON NEXT DRIVE OF SUBSYS 
uu OLeiue 132 pogggi 010574 24S: MOV 1(80) STRe20+39. ae Tete Nati Nene IN 9 tis . 
wai bi?iss 168881 ' re Sines HE PROCESSOR SO THAT OPERATOR 
4411 017160 O00000 26S: THEst af ef 
iis Giclee PRR, BRRPSR cos, ibe | lorsr i ryBeSRESTEM OF FPENTRCN 
aut 17172 Ol ? 05512 OOSSS4 MOV BORVLST,ORVPTR cei "225 Ve Lt 
a4is Bt? PbESS> | BOSi oe 1ST 
ual re it 0002: IMP 380 PRES ART. AT ADRS 200 
aut O17 ao0137 " HALT ‘HALT THE PROCESSOR 
ais 619515 BBB — & 204 RESTART AT ADRS 204 
441 pizsis 000137 oo0204 
gust 
455 .SBTTL END OF PASS ROUTINE ak 
duse REKKKRRRKRKR RARER EREKHE SERA RAARKAAARARAAAAAHRAEK 
aes jLINCRERENT: THE PAs NUMBER (SPR ss) 
eh IF THERE ISN’ *T JUMP TO 200 
yyor lode 
44 017220 peo | ach as 
. sires O37 BB 149 Fhe p gan i NCE EMENT HE PAS NUMBER 
ia3 13 5 : 36 BIC #100000,SPASS ;;00N’T ALLOW A : 
4434 017232 042737 100000 0013 BIC #1900 He: 
qa ree SEOPCT: .WORD . YES 
oe 1 ect tpn se a(PC)+ : RESTORE COUNTER 
quag ee ay SENDCT: ,WORD 1 
a T MONITOR ADDRESS 
SS HEE, Hg ocoe | iene: BY” prego agro met, 
uuus BIzSeS | BoBdoe RESET ?:CLEAR THE WORLD 
aug Bt? AD: JSR PC, (RO) ::G0 TO MONITO 
444y bt55e5 1 SENDAD: JSR , 1589 201 
4445 017266 O00240 NOP + 
uuu? Bt7872 BpOSdO NOP thet 
4448 017274 $DOAGN: 


MO? 


CZR6QBO RK6 OR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 91 SEQ 0090 
CZR6Q8.P11  O02-DEC-77 10:46 END OF PASS ROUTINE 

a 017274 000137 oD0200 IMP as200 ; ;RETURN 

44 

44 

44 


sie ASIEN US PRE APL SIR MSFT 


tte MD bel Ah EGR VE TREE ue POMPEI c0 no runes 
Hotes AMPA OOP 12.100 00N<COURAITE, DUPE SUcHUUGSisnsssuss 


44 
44 017300 104407 or SS ot . ; ; SAVE 
th 4 000003 003143 ae BT radi rr ORIVE SELF TEST 

7 007432 Bisco ORO, RO ier OF SERATCH SCORE TABLE 





Ta 
Neg Has agave? 007572 ei rANSCORO*S6. [SEF ZF SOME. YET 
44 - PERFORM ef WITH OFESET 
4471 017326 112765 000117 oo0001 $s: MOVB #SEEK,P.CMND(RS) ;SET SEEK COMMAND 
mn b173g G75 003147 ee FIOO BEE JF CYL DIF = 100/200 <ocT) 
44 17 g 1 024416 oo0002 DS,P.CYLN(RS)’ ;SEEK HALF THE CYLS 
44 017. 737 146 ISR PC, ORV 
wwe Gives Osares BENNIE oooooe BOG, OLDE, P-CVLNCRS) _— .ASEEK THE REST.OF THE HAY 
44 17 14 9S: SR Pe’ DRYCAL : PERF’ Eee = 
44 O17 Bagte 2Phe prep en SLA SCPE Ot DIRECTION FLAG 
4480 17. rey 000014 nov #12.,R3 g FOR R NEG OFsT Ss 
Be Bir 12S: cL Beet FO iy “EG OF T VALUE 
44 1741 003143 6$: ¢ #3, TSTTYP — IF SELF-TEST 
a4 pte 4s8 abve p>facKcrs), R1 = F RNCK NUMBER 
85 174 ast MULT BY 16. 
ae Bt 
4430 01743 ADD #N SNSCORO, RL ;GET POINTER TO S 
a a ef Be ieattae burectin 
’ 
44 17450 ADD #48. ,R1 ?POINT TO POSITIVE SCORES 
4494 017454 17S: MOV #1,.R4 ;SET COUNTER TO 1 
4495 B1 7460 BR 14$ GON BNUE 
4438 17 15S: mov HNSCORO, ,R1 OINTER 13 SCORES 
uae BiPuPe 10S? rete OF othe SE HHYCH 6 Orst DIRECTION 
Sen? BIER 257%) BRCHUS vis: Fal FErsBeElr FREE EPVETDE GEPAPRENPERP"Econe ve 
eet YEE ABESBA 17777” es; BP AD BESREREN? ESURreG™* 


NO? 





CZR60B0 RK& DR CPT MACY11 30(104%6) O2-DEC-77 11:48 PAGE 92 

CZR608.P11 oS-bEC ROS 10:46 END OF PASS Bait Ne —— 
4 1 00137 BNE 4S -BR IF NOT YET 
BE 15258 rete 16S: MOVB ko P.OFST(RS) cet AN OFFSE 
450 i are? 000001 MOVE SOFFSET .P.CHNDERS) . OFF T CHM 
We08 17540 1 INCB OF SCNT pORCR FF T NUMBE 
uel) Bt g087 3 — Mone BEC Overs © Pe Sale PARARE TRANSFER 
Sis Hee Wire Haare? ooo «=e BREE coed sh au GPR Faro 
4514 132 7 JSR PC. ORVCAL 70058 CL 
4515 017574 1 5 CLRB =-—~&P OF STS) ‘CLEAR OFFSET VAL 
ueig - ki 000001 HOVE BOFFSET ,P.CHNDCRS) sSET OF T 
det 1761 7 ADD na RO HINGR OF st ie UE BY 100 UIN 

i 12 BF Re ROT IN THIS DIRECTION YET 

4521 0176ee 012703 O00014 MOV #12. ,R3 :SET COUNTER FOR POS SFSTS 
ubee 17626 012700 MOV R tINIT POS OF St TO 100 UIN 
ube 176 1 13 0031 COMB OFSDIR ; COMPLEMEN OFFSET DIRECTION FLAG 
4 1764 tents 3 RP SREG > RESTORE fe 
ubee 017642 000207 RTS PC :RET 
qe5a 
4529 
W231 tLADSCOR ~ ADD THE + AND ~ SCRATCH SCORES 10 THE + AND - SCORE 
We3e j ¥SUMS, FOR EITHER THE OVRWRT, SELF, OR COMPAT READ TEST, AS DETERMINED 
yeaa oe TSPTTTECTTITOTTT TTT TTC TO TT TTT TT Tt ttt Tt TTT Tt tt ttt ttt titi iti tt} 
yess pizese 492395 ooc03 003143 ROSCOR: CHP.” 43, TSTTYP + Oe PO SECr-TEST 
We30 bi eee bergen 7432 foe conn RO BR Cele rest SCORES 
eo tree fie Berle Re er 
454 176 7414 ADD 
ede 176 1 7472 MOVB 
454 1 7416 RO,NSSCRe 
4544 0177 1 75le MOVB PSCORO.R 
454S 01771 007420 ADD st 
4546 0177 1 007532 MOVB 
4547 0177 22 RO. PSSCRI 
454 017726 1 DO75S2 MOVB 
454 177 007424 ADD RO, PSSCRe 
4550 017736 30 BR BS ;EXIT 
Weed 017 187 2s: MOV #NO ,RO :GET POINTER TO (-) OVRWRT SCORES 
Wee3 O177e0 12599? OBBOBT 003143 OyPB OSL TSTTYE rGEr iF PEERING OVRURT BATA 
4554 017756 o5i4 BEQ : :BR IF YES 
4655S 017760 to3h0 007112 MOV #NCSCRO, RO ‘GET POINTER TO (-) COMPAT DATA SCORES 
wees Blrres Bleres Biesep = ws, FB) RASSCAR® HRT PRAM Pa dp, COnPm” ORT ScoRES 
4558 017774 012701 007432 MOV #NSCORO,R1 :GET POINTER TO NEG SCRATCH SCORES 
4559 020000 012703 607512 MOV #PSCORO'R3 :GET POINTER TO POS SCRATCH SCORES 
4560 O20004 112102 6S: MOVB (R1)+,Re :GET A SCRATCH NEG SCORE 





cenegeo RK6 OR CPT MACY11 30(104%6) O02-DEC-77 sf PAGE 93 SEQ 0092 
CZR60B.P11 oS-DE ed 10:46 END OF PASS TINE 


20 


SEereaReS f 
= 
NOT 
2R 
“a 
a8 
Ras 
mg 
: 
aR 
a 


s LELELKKELRAELELALLELARALLAALLALAAALLAALLLLAARALALALLLAAALLARLRLAS 


Poco e CANCE ca attgh ca Ra 


SS 
Zune 


BY THE NUMBER OF CYLINDERS READ 





We ; set Bi SE: it A LEGGE ASPET EE 
de Mseses SAVREG : RO-RS 
003143 MPB 83, , TSTTYP ; Ru SELF-TEST 
901304 ROW SNSSCRO,STMP11 ;GET (-) SELF-TEST SCORES 
4 1310 mov SPSSCRO,STMPIS ; T Bh SELF-TEST SCORES 
001306 nov ' SstmPi2 Ser ce 
01 2s: v TMP11 3GET (- QVRHRT 
Bi3i0 v apc Ro’ Sthei4 ; t pale t “e 1 Scones 
003143 che 8 , tsTtTvP ; Ay ING " OVRURT DATA 
901304 MOV sate. ste ;GET PO (=) COMPAT DATA SCORES 
i 001310 MOV :GET POINT’ 1 ) COMPAT DATA SCORES 
3¢ MOV :SET eh VI > 96° 
001306 4S: MOV 48 MP12 ;SET R= 48. 
34 128: CLRB : INIT ount FOR (-) DIRECTION 
95 6S: cLR é :CLEAR HI BITS OF DIVIDEND AND DIVISOR 
E eth 
| CLR RY 
a$1MP11,R3 ;SET DIVIDEND = (-) Y 
4600 TSTB OF 201 :SEE WHICH OFST DIRECTION 
MOV aSTMP13,R3 i SET DIVIDEND = (+) SUM 
10S: JSR PC,M.OPID ; Divi TO GET AVERAGES 
4 MOV RS, RO :GET vis 
ASR RO *DIVI T BY 2 
CMP R1,RO i SEE F REMNOR > HALF DIVISOR 
0 $ :BR IF NOT 
NC 3 :ADD 1 TO QUOTIENT 
gs: OMB OFSDIR :COMPL_DIR FLAG 
461 BEQ 14 :BR FOR (+) 
461 MOV RS, @STNPLI :PUT (-) AVG INTO TABLE 
det 001304 ADD ae, TMP 11 
4614 14S: MOV R3, ISTMP13 ;PUT (+) AVG INTO TABLE 
4615 Obe7 001310 ADD #2; STMP13 
4616 5337 001306 DEC $TMPi2 ;DECREMENT COUNTER 





CZR6Q@B80 RKE DR CPT PROG MACY11 30( 1046) 


CZR60B.P11 


4018 


4619 
4621 


See hee Bee BRULEE 


& 
Past 


seee 


BBG5E. 
020260 


O2-DEC-77 10:46 


10437 
000207 





437 Bogise 
7430 
136 


1364 
Restos pong4e 
0202 006712 


12737 007426 
7 001306 
1 


03 160646 
eS 042676 


007426 
007430 


001304 


COs 


O2-DEC-77 11:48 PAGE 94 
END OF PASS ROUTINE 


6 12S 
RTS PC 


;BR_IF NOT YET 
tRESTORE RO- 
RETURN 


5; LHAAEAAAESALALE REE SAAAALLLAE ELLE RELL LKLRAAE LRA AELRAAE LEAR R REE 
;#TRKAVG - COMPUT S_OF TEST S OVER ALL SURF ACES 
; RURY Ee TEST SCORES 
N OVRAVG. 
TIBILITY DATA READ SCORES 
COMAVG 


ae eee 


HATTPITITTIITITTT TTT tI TTT tli tthe 


TANG Se OF OVERWRI compat READ TEST OVER ALL TRACKS 
TAKE SUR OF OVENS Ao, eo INTY DRIVE LIS? POINTER 
CLR R1 ; INIT DRIVE COUNTER 
cLR VRA ;INIT SUMS TO O 
HOV eORVE ao ;SET POINTER TO OVRWRT SCORES 
MOV #NCSCRO,R3 :SET POINTER TO READ SCORES 
6S: TST (RO)+ j COMPUTE TOTAL NUMBER OF DRIVES 
BEQ 8s : IN Rl 
a, Ot 
8S: v e ,RO ;PUT NO. OF DRIVES IN RO 
mov Re, Ra :SET POINTERS TO SCORES FOR THIS TRACK 
9S: BBD CRAs OVRAVG ;ADD SCORES TO SUMS 
94. (R4)  OVRAVG 
ADD (RS)+, COMAVG 
ADD (RS), COMAVG 
;SEE iF ALL SCORES ADDED FOR THIS TRACK 
IF NOT Y 


POINT TO SCORES FOR NEXT TRACK 


*R 
P , #NOSCRO+64. sSEE IF ALL TRACKS DONE YET 
; DIVIDE te Ber RAGES ’ 


CLR RY ;GET DIVISOR IN R4-RS 
8 ies 
Rl, 
AB Ri’ Re 
ASL RS 
MOV #OVRAVG,STMP11 ;SET POINTER TO OVRWRT SCORE SUM 
CLR $TMPl2 :CLEAR SCORE INDICAT 
10S: CLR RO *GET DIVIDEND IN RO-R1-R2-R3 
CLR Ri 
CLR Re 
MOV @STMP11,R3 
JSR PC,M.OPID ;DIVIDE TO GET AVERAGE 
MOV RS’ RO GET DIVISOR 
ASR RO :DIVIDE IT BY 2 
CMP R1,RO :SEE IF REMNDR > HALF DIVISOR 
BLO 12$ :BR IF NOT 


CZR6QB0 RK& OR CPT PROG MACY11 30( 1046) 
CZR60B.P11 E 





O2-DEC-77 10:46 


Be TE ues 


010000 
031504 


000001 
005430 


005476 


000137 033754 


137 031504 
20 


44 
020630 000137 033754 


001304 


000020 


000034 
oos4e4 
000034 


oos4e4 


DO8 


O2-DEC-77 11:48 PAGE 9S 
ND OF PASS ROUTINE 


ont a 1 TO QUOTIENT 

les: ov. «ss BGOMAVG, Steen EPR tot Mo ORE SUM 
ae sTuPie X To COMPUTE. READ 1RTOR ence 
RTS PC 7 


[Reman NORVEXTSTENT DRIVE HONDLER eeaaananeee 


Gs eset bean ire 1 TE YEE eTeD (AND VALID). 


IS NOI 
: (NED = NORCEXTSTE ba 
, canndnstanannnatasushuselescammmnnenmmeneeannenemnnncanenedl 
AEDHDL: BIT #NED,P.CS2(RS) ;SEE IF NED ON DRIVE SELECT 
ae 1 pBR TANDEE D ETHER ERROR 
1s: ¢ Ro, 1 OE RCRA 
MOV #1: ;SET BIT POINTER 
CLR R1 ; EAR COUN E 
2s: cHee ee ; IF R 1 = CURRENT DRIVE NUMBER 
NC 1 : TER 
ast RO i SHI F ac 68 NTER 
3S BIC NE BIT FOR THIS DRIVE 
Bic Faves REPRE, 
MOV (SP)+,R 
RE TNML ;TAKE NORMAL RETURN 


a8 OKHDL = DATA C HEEK ERROR HANDLER ne eeeeEe® RRARRRRRRERAEE 


; &DCK 
LDR DECHGR YE EeSEEIIEY ee VatTQGREVER: MATCH 15 USED 


IT IS HANDLED, ALSO. 
t auaenanuasnedueeacunevnerkeeussisernecaehneizeinseuneunaaas 


béx R RECODE ; CLE L 
SIT #HVRC ,P.ER(RS) i F HEADER VRC ERROR 
T 


3 
BTS SHVRCER,RECODE ERROR FLAG 

4S: Bi] #0CK,P.ER(RS) E aft BR ERROR OCCURRED 
IMP ERRHDL E OTHER ERROR 

88: = Fite «= Stee OOF dates Bek ERROR F 


JMP RE TNML E NORMAL RETURN FROM” ORIVER 


SEQ 0094 





CZR6QB0 RK& DR CPT PROG MACY11 30( 1046) 
CZR60B.P11 10:46 


02-DEC-77 


y oes 
SS 
=— JIN 
<= 
Neer 
= 
NO 
o 


1 
4401 2102 
27 800100 160232 
000032 
| 012107 
000022 
4 012114 
27 000007 
1003 
Aearet 012126 


iowa, 01325 
000744 


~ 
-_ 


005077 160146 
7 O0S44e 
0Se777 000100 160132 





E08 


O2-DEC-77 11:48 PAGE 96 
END OF PASS ROUTINE 


s LEXKKAALEKAARKRARAALLLLLAE LEA AE ALARA AAA AALAALAKAERAAEEAAAAAALAA AALS 
ERR’ HANDL 


TL__KBOHOL - TTY KEYBOARD INT 
5, Me Se SE AE AE 06 He HE A A a a a a aa a 


moe: MOV R1,-(SP) ; SAVE Rl ON STAC 
MOV a$tkB,R1 :READ A CHAR FROM KBD BUFFER 
BIC #17 yR1 3MASK OUT UNUSED BITS 
CMPB Rl. #172 : ioe IF bo LOWER CASE TYPED 
BGT 20% : 
CMPB Ri, #141 
Bic cot ITS +B eRe T AS 
208: MOV Seve ta ese 
CMPB B05 Ri SEE IF <t ie 
TYPE CRT RLC Hd (#0) 
1S: BIC bBITe, aSTKS :CLEAR KBD INTERRUPT ENABLE BIT 
mov (SP)+)R1 ; STORE R1 
RTI 3 URN 
2s CMPB #032,R1 ;SEE IF (#2) TYPED 
BNE BR IF NOT (#2) 
TYPE CNTRLZ 7ECHO (42) 
BR 1 ; RETURN 
3S: CMPB #022,R1 ?SEE IF (¢R) TYPED 
BNE 4g ?BR IF NOT (¢R) 
TYPE CNTRLR ?ECHO (tR) 
BR i$ + RE TURN 
4S: CMPB #007, Ri SEE IF (4G) TYPED 
BNE 5 *BR IF NOT (¢G) 
TYPE jSNTRLG : CHO ‘ *G) 
S$: YPE  INTCHR iE INPUT 
TYPE SCRLF :D0 <CR> AND <LF> 
R 1s RETURN 


aE TOES PREPARE FOR KEYBOARD INPUT NNN NNMHE® 


jaTHIS sUBROL KEYBO LER AND 

srrings ae ett INT. Bone BUF INPUT LORDS 
Nees tn OR NEW TTY INPUT. IT ALSO 
j xe NABL NABLES KBO INTERRUPT. 


is “JSR PC, PREPKB 
Perri riititiiiitiiiitittiitititiiiiiiiiitetriiii rr rrr seer eer ioe 


PREPKS: CLR aSTK ;CLEAR KBD BUFFER AND DONE BIT 
CLR TNTCHR ;CLEAR TTY INPUT WORD 
BIS #BIT6,a$TKS ;ENABLE KBD INTERRUPT 
RTS PC ; RETURN 


fp RRR EERE ERLE REAR HEE EERE K EEE K EAE RE RE RE RA RLEREEE 


SE@ 0095 


FO8 





CZR6QB0 RKG DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 97 SEQ 0096 
CZR608.P1 02-DEC-77 10:46 ECOBAD - ECHO BAD TTY INPUT 

4785 sorte ECOBAD ECHO BAD TTY I 

47 HATYeED IR ao Us BEYERRIRED 0 ie 17. INVALID FoR SOME 

47 FOL A QUESTION 2). THEN, A <CR> 

47. ORG its : 

4790 J ECOBAD 

eae tT SS HUNEERHERSREGKEREOSSES SES SERESSESESSESERONSERGESEROREERERES 

4793 021014 104401 oOs44e scone TYPE , INTCHR s ECHO BAD CHARACTER 

4794 021020 104401 001324 TYPE SQUES YPE <?> AND <CR>, <LF> 

4795 021024 000207 pc ir N 

4796 

4797 

4798 

4799 

dB01 

4802 Le ee Seater orctt Oclm MO ON TT’ KBD eee 

4803 GE GIT OCTAL NO. ON TTY KBD 

4804 iteitee ate yale with, OLD PARAMETER VALUE ON STACK. SUBROUTINE 

ues j RT YPES UE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON 

480 H Soe ohne eiibanasesenusnennnseneennuasenqeusnaenenannaneneennes 

4808 021026 oo00002 TPRM: MOV 2(SP),-(SP) : D VALUE 

4808 1 TYPOS ;T 

10 1 -BYTE 6 SIX DIGITS 

4811 1 ‘BYTE O : 3 LEADING, ZEROS 

B13 i p34934 Jere BO ROCHRS REDD W VAL KBD 

4gi3 O31 73 hap tp 

Bie i 75 5 C10) OR ERROR r RETURN ADDRESS 

1 1 TST RO ;SE IF any 

ueig 1 BNE 45 iBR IF YES 

481 1 RTS Cc ;RETURN - OLD VALUE UNCHANGED 

4820 1 oo0006 4S: CMP RO, #6 ; SEE iF > & CHARS TYPED 

ug) 1 L $s :BR NOT BAD 

4 1 005212 6S: YPE , BUFFO ; CHO BAD INPUT 

4823 1074 001324 TYPE SQUES 

uge4 631108 000010 7$ SUB 10, (SP) iF x 8 RETURN PC 

4826 11 005212 8s MOV #BUFFO, -(SP) ;PUT POINTER TO CHARS ON STACK 

4 tite O42116 Jor PC, OCTBIN EBOOK Re p TS roe BINARY 

4 111 6 TUR AO 

4829 021120 MOV (SP)+,RO 

4830 Oelige 042250 TST $HIOCctT Set I ahi ree ARE 5 

4831 Oell BNE og R IF NOT 

4832 021130 ooooo2 MOV RO,2(SP) UT NEW VALUE ON STACK 

4833 1134 RTS PC PUT Ne 

4834 

ue3e 

4837 5g HEE HE AE AE AE EH HE AE AE EH A a a 0 HE HE HE HE EEE 

4838 'ASTTL GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 

4839 ETHIS SUBROUTINE ALLOWS TENTS OF THE SOFTWARE SWITCH 


THE CON 
:*#REGISTER TO BE MODIFIED BY TTY INPUT. THE SUBROUTINE TYPES 


cehegeo RK6 DR CPT PROG MACY11 30( 1046) 
CZR60B.P11 O2-DEC-77 10:46 


rapt 000176 001140 


737 031504 003056 
37 0030S4 


000007 


Meee 


<= 

Les) 

ve) 

£ 
oo 
ror 
mee ee 
Wwrururur 
ONNNN 
fvuorcVvoO 


S00 
fA 000016 


GO8 


oPSuRe - OPE NOP TWARE SUTTCH REGISTER FOR MODIFICATION 


“SWR = NEW AND WAITS FOR A NEW OCTAL VALUE 
i SOF UP TO sie biel S$ TO "BE TYPE 
senexyaereanxaeesetna eeseryoe@HLHaeeHOEdHeNaCHaEEAEEOEEOEES 


&tsurc: CNP 8 G, SWR . TWARE SWR SELECTED 
MOV SWREG, - (SP) : PUT OLD VALUE ON STACK 
TYPE SWARM : TYP 
JSR PC. GETPRM :TYPE OLD GET udeH SWREG VALUE 
MOV csP+, SWREG :STORE NEW V 

6$: RTS : RETURN 


5. He HE HE AE aE A 9 eH EE HS a HH HE 
:SBTTL INITSS - INITIALIZE SUBSYSTEM 


*#THIS SUBROUTINE INITIAL TES THE DRIVER AND ITS PARAMETERS 
Hang pes = rere eS 


; JSR INITSS 
Saat NE ER Sick et Ri ems A 
INITSS: MOV ;SET UP ABNORMAL ERROR RETURN ADDRESS 


MOV SERRERE’ A: NORM RET 2 
Roy RKB Re et ee Babi Reais ens 


CLRB NORTRY. C TRY” FLAG 


ISR AR_DRY EB Neu ERS 
nove BSOSCURAP. crmocnby. SE 3SET Suusysten ¢ CLEAR AR COMMEND 
MOVB BRtVE, Bibavcrs)' Se conn fn Y SREVE NO. 
MOVB DRIV ARM1 - SET VE NO. IN GL TERNATE P.B. 
MOVB GRMAT P B-CS1H(RS} ;SE CURRENT 0 ORIVE 
BISB TYPFMT,»P.CS1H( YPE. O=RKO6, 4=RKO7 
RTS PC ) suBROUTINE eXty 
5 + MURR RM RRR RRR RRR RRR RRRRRRRRRRRARRRKRKKRKKHKKKRKRES 
aETTL  CLRPRM - C EAR DRIVER INPUT PARAMETERS 
ETHIS SUBROUTINE ZEROS THE FIRST 14 BYTES IN THE DRIVER 
j XPARANE TER BLOCK _( (WHOSE IS IN RS). 
ererrtrir titi tittiitititiitiititiiiititiiiiitiiiititiiitiiiiiiyy 
CLRPRM: MOV RO, -(SP) ;SAVE RO 
MOV RS, -(5P) AV one 
MOV RS; RO GET 


aig U Bek Ce ADDRESS 
ADD #P:CS1,RS :SoneuTe LIMIT 
1$: CLR (RO)+ ;CLEAR A WORD IN PARAMETER BLOCK 


CZR60B0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 99 SEG 0098 


CZR60B.P11 02-DEC-77 10:46 CLRPRM - CLEAR DRIVER INPUT PARAMETERS 
F YET 
1838 851386 Beta7e BNE is: win a RO Done YET 
800 Be13i8 Bi aia MOV S35 RO iReSt TORE RB 
4301 1314 000207 RTS 
3902 x; in 
4303 
4804 
Jage 3% BITE SCNORV.= SCAN ORIVE FOR STATUS 0088 = ssuunnsnunss 
4907 ;#THIS SUBROUTINE LECTED DRIVE TO INSURE 
4308 :*#THAT THE IS ON-LINE Y, NOT WRITE- “PCY” 
4309 ?*#AND_NOT_L WITH An AL. NT TR 
uit I IMESGHGE I TYPED RKO6 I 
4912 >#A RETORN fs ’TO THE og LISTED Siebel 
4913 j MOF TER T THE CALL To ae 
HE Pm Pong 18 leg ae nto ea 
ugié i RROR RETURN 
uaig : 5 KEKKKEEKKKKA REARS RKARRRRAREREKRERLERARRERKRELEREKLKRKRAKRKHAK ARKH E EE 
4920 13 004737 7 CNDRV: JSR PC, INITSS ; INITIALIZE DRIVER AND CLEAR SUBSYSTEM 
uase Osi38 Oe7I2 850190 000010 38: Bic IE SMe) eocre) DISABLE RkOS TN Reese 
492 851356 b25 B31 ney ORE ; SEE OF RKO7 
2 Be Re Bm Os Rl ot 
4 Gel ue 1 1g 000001 HOV 8GO, (R2) ‘ELSE SET GO BIT FOR RKOG IN RKCS1 
4927 
4928 021350 271 001 S$: MOV #<CDT!GO>, (R2) 
4368 921364 Bost 7§: CLR CRACH : Er Age as COUNT ER 
4 1 7 444 158: INC CRACH : INCRE NTS STALL COUNTER 
4931 021364 1375 BNE ;STALL OR_SEVERAL MILLI-SEC 
4 335 O51398 109 001000 oo0010 i ioe »RKCS2(R2) RROR 
4 1376 112765 000101 oo0001 MOVB P.CMND(RS) ;SET FOR ERR REPORT 
4 4 MOV (Re),P.CSiCRS) ;GEtT RKC OR REPOR 
dase athe 48 JSR PC,I reas iagt OT RK611 REGS FOR REPORT 
ag felted [Os08e Oo Hilon EEA to ll 
4940 Osi452 0001 ee scala Sne L ia $0.8 TESTING 
YQy uy 7 : R he NI 
4gu3 Bs sao fares if? oo0001 ie hove SCHFAT®R. ono cmd tbe j feP het ORIVE STATUS COMMAND 
DO a ABNORMAL 
43a BBiee B18737 60377 ppea3e nov 137? REO ; sandy ON-LINE TNOTEATOR 
4g BS} 92939 40 011312 MOVB #40 BAGDRVs 47 :PUT A a sbake IN MSG BUF 
494 ;SEE IF THIS DRIVE EXISTS AND IS’ ON-LINE 
4948 021474 012737 931504 003056 MOV ise’ Pye % RETURN ADDRESS 
dade Oe150e bee? 32 0003 005476 che 8 77 , NEWON NOICATION ON THIS DRIVE 
4951 O2151l2 113737 O05430 011311 MOVB DRIVE , BADDRV+6 iB IF NED Not cer BUF 
4952 021520 152737 oO00060 011311 BISB #’0, BADDRV+6 ‘CONVERT TO ASCII 


cgnegeo RK6 OR 


4953 


4385 


we 


RRRRORARRAROROS Pewee ReBeReS REE ERERS = 
uw 
Ie 


TNSREERPOONEENTS EREERES SroR 


fofororrororororore 


Re 


fore 
oo 
Se 


0e-DE 





I08 


cpr PR macy. 1 30(1046) O2-DEC-77 11:48 PAGE 100 SEQ 0099 
pros 6 SCNORV - SCAN ORIVE FOR STATUS 
104401 911303 TYPE  BADDRY ; TYPE YEE “ORIVE x" - 
132737 001351 BITE ieoety 7, SENVM | SEE. IF UROER Ri ane 
064 134 ROR 123 tNED UNDER APT SIZING 
«SERVICE ERRORS HERE 
762 000100 ocooo00 2s: BIC #IE RKCSI (RE) ;D1 BLE RKO& INTERRUPT 
616 O00000 MOV a(SP), (SP) SE UP ERROR RETURN ADDRESS 
RTS PC :ERROR R 
-SEE IF DRIVE IS READY 
932765 000200 oooo40 4S: BIT Y,P.AOOCRS) ages? FOR DRIVE READY 
1013 BNE IVE IS READY 
113737 005430 011311 MOVB DRIVE , BADDRV+6 GET DRIVE NO. INTO BUF 
1 4 60 011311 B1S8 #’0 DRV+6 5 CON RT TO ASCII 
109401 011303 TY : : “DRIVE Xx” 
104401 011333 TYPE NTREDY :TYPE “NOT READY” 
000 BR s :TAKE ERROR EXIT 
-SEE IF ORIVE IS WRITE ENABLED 
0327 65: BIT #S.WRL,P.AOOCRS) be te Ge TF WR RITE LOCK SET 
141 BEQ 8s LOCK NOT SET 
11373 MOVB IVE, BADDRV+6 ; Set 1 TKot 
1527 BISB #’0, BADDRV+6 3C RT TO ASCII 
1 1 TYPE » BADDRY iTY DRIVE x" 
1 TYPE WRTLOK ;T “WRITE-LOCKED” 
0007 BR a :T ERROR EXIT 
-SEE IF DRIVE NO LOADED WITH Lac tcnnent Gar T 
112 85: MOV #PACK,P. PACK ACKNOWLEDGE COMMAND 
004 JSR PC CAL seal VOLUME VAL ID 
2 MOVB sRE * sesitgint T RECAL CMND 
01 JSR PC : DRIVE 
it 1 MOVB mae CMND(RS) clrfice 
1 go000e MOV Perak As NCRS) ae Rig 032(8) /1456(8) 
11 MOVB reat eT RRS) 
01276 2 000010 MOV Z Stee : 
01 1g MOV At Ss) ses, 4 po 
14 0 BICB $0, CFMT P. CSIH(RS) 22 SECTOR FORMAT 
1537) 1 7 BISB Tern P. CSIH(RS) 
7 030146 ISR C, DRVCAL ;READ_4 WORDS OF BAD SECTOR FILE 
27 y oos4e4 BIT BAAYDER, RECODE iBR-IF ok" ERROR 
104401 012036 TYPE ; TYPE READ ERROR MESSAGE 
2737 177777 0OS33S0 10S: CMP 4177777 , RWBUF +6 i SEE IF ALL 1’S IN I.D. WORD 3 
1013 BNE 123 :BR IF NOT ALL 1’S 
113737 005430 011311 MOVB ORivE BADDR +6 *GET DRIVE NO. 
152737 000060 011311 BISB #’0, BADDR i CONVER T To ASCII 
104401 011303 TYPE *BADDRV it PE “DRIVE Xx" 
104401 011366 TYPE » BO RPAK TYPE “LOADED WITH ALIGN PACK" 
4 BR at : TAKE ERROR EXIT 
“ERROR FREE RETURN 
062716 oo00002 les: ADD #2, (SP) ;FIX UP RETURN PC 
000207 PC’ ; RETURN 


ee iar ae og ot eae anaemia 


I kSETTU 


R LOOP ON 


SET UP F N ERR 
;*THIS SUBROUTINE CANNOT BE CALLED BY ANY OTHER 


08 


CZREGBO RKE DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 101 SEQ 0100 
CZR608 . P O2-DEC-77 10:46 SCNDRV - SCAN DRIVE FOR STATUS 

5009 ; *SUBROUTINE --- ONLY MAIN-LINE CODE !!!! 

Bpi0 1 2 1076 ditties "hoy "tees dastackee unove aevumm fe on eraee 

ve 

apts BSsBue 613537 001076 MOV aST Faae -2,SP Rev INiT ae SF STACK POINTER 

soli esos: oer? BoerSs etfs Eas iStEas RETRY Enon’ count 

5015 bt 70s 640 MOV #PARMO, RS icte BLK Ss 

5016 Oe 12765 000177 oD0001 MOVB SSUBCLR P.CMND(RS) ;SET YSTEM CLEAR CMND 

5017 oe20 737 030146 JSR DRVCAL ” ;CLEAR THE SUBSYSTEM 

5018 100 012737 OO00000 177776 MOV PAO, 0 aaPs +RE- ESTABLISH PRIORITY O 

2019 022106 000207 RTS RET 

2053 

5023 


uw 


: SBTTL “NTGART ~ MOUNT TEST CARTRIDGE, CHECK ORIVE STATUS 
éaTT TGBRIRI VE STATUS 
STHIS SUBROUT INE | PERFORMS J 


ba ree athce aa CHECK a4 Soe Liane renin? TOE PACK FORMAT, 
is READS THE BAD SECTOR FILES, AND TYPES THE DRIVE AND CART. SERIAL 


ETETTertr iri titi tii tt titi ttt titittttitittiiiititiiittititiiiice! 


Suitav id 





022110 MTCART: 
5034 022110 013700 oosss4¥ Vv ;GET POINTER TO FIRST DRIVE FOR THIS SUBSYS 
2035 gis 112037 010366 nove Cis ifintpawsee. ;PUT DRIVE NAME INTO MSG 
1 111037 0610365 MO TPAK+21. 
5037 21 700 005512 RG ho ;SUBTRACT LIST ADRS FROM POINTER 
cose feel fe SHAPE BGR ORive trode 
1 11 003154 MOVB R » LOGORY LOGICAL ORI 
2040 022136 904737 1170 JSR PC’ INITSS TTIALIZE YSTEM 
i 214, 2762 100 oo0000 BIC #IE RKCS1(R2) NTERRUPT FOR MAN. INTERVENTION 
eoue eel 010340 10$: TYPE  ,MNTPAK es shut K MSG 
154 10602 cs: TYPE TPR ;T “TYPE R<CR> WHEN ” 
so44 160 010623 TYPE DRIRDY :T “DRIVE READY :" 
BOs 164 023424 JSR PC, RDCHRS ‘WAIT FOR R<CR> RESPONSE 
1 125 5 ¢4C) TURN 
7 1 165 :(¢Z) RETURN RESS 
174 os j (10) RETURN ADD Ss 
1 T RO SE IF NULL INPU 
BNF a5 7BR IF NOT NULL 
1 1 oos21e 6S TYPE , BUFFO ?ECHO BAD INPUT 
1 001324 TYPE SQUES ;TYPE_<?> AND <CR>,<LF> 
epen pS 1§ 1 oe 001100 12$ eoy ane SP tRE TRiT THE STACK 
5055 Oeee OE959 003126 TSTB DEL ‘ >SEE TF 200 START 
Oeseee 095 012176 MP bfetrt RES tag PROGRAM - 200 START 
5058 Oeee 137 013002 14S IMP ALLSYS ?GO_ASK FOR SUBSYS’S AND DRIVES AGAIN 
2059 8 36 737 003126 16$ TSTB MDFLAG :SEE IF 
4 1744 BEQ Be :BR Tf YES). TQ, ASK AGAIN 
5061 2 12706 001100 MOV #STACK, SP ?RE-INIT 
5062 OeeeSO 000137 013446 IMP ASKSYS’ ;G0_ASK FOR sues TO TEST AGAIN 
5063 Oeees4 023727 OOS2i2 ooolee as: CMP BUFFO, #’R :SEE IF aBiCR? TYPED 
5064 Oeee62 001347 BNE 6S :BR IF N 


CZR6QB0 RKE DR CPT S's 
C2R 02-DEC-77 


608 .P11 


S06S 


eT | 


Biss iris Dae RUERE RENAE 


QUT UT TU TU UT 


TU be he ee be be be 
OWONOTU CWO 


022264 
022270 


me 
i 


MACY11 30(1046) 
10 


oosss4¥ 


003155 


156462 


oooo00 


08 


02- abEC- -77 11:48 PAGE 102 SEQ 0101 
MTCAR MOUNT TEST CARTRIDGE, CHECK DRIVE STATUS 
PC, INITSS INITIALIZE S.S. 
; CHECK sian OF DRIVE 70 BE reste "Shlve 
BICB 8.0 BRIVE ‘STRIP THE ASCTT 
JSR C, SCNDRV a a STATUS OF THIS DRIVE - 
10$ ; IF NOT MSG AND RETURN 
: TO WAIT FOR R<CR> AGAIN 
;READ THE HEADER 0 ON oe ntTee Oo, ont: 0 47h 0 T THE DRIVE FORMAT 
JSR A, CANO INIT. VER AND S.S. 
MOVB ;SET RE HEADER COMMAND 
JSR PC are A RE 
MOV ea CS1(R2) 300 A RE WITH FMT BIT = 
24s: BIT Wey ARSSTHGSD” | :WAIT FOR READY 
MOV HOLD2,RKCS1(R2) ;00 A READ HOR, WITH FMT BIT = 1 
26S: BIT BROY, RKCS1 (Re) :WAIT FOR READY 
CLRB EBamat ; INITIALIZE FORMAT BYTE TO O 
TST py 3 i BOP te TIME 
BIT set 9,RKDB(R2) TEST T BIT IN HEADER WORD 2 
BEQ :BR_IF SEC OR FORMAT 
BISB Po CrNT FORMAT ;SET FORMAT FOR THIS DRIVE 
28s: ISR PC, INITSS ? INIT : 
TSR. PC: REOBSF ? READ BAD CTOR FILE FOR THIS DRIVE 
’ 
BRE tBR IE NOT 200 ct 
CMPB , PASSNO : iF FIRST PAS 
BNE ; IRST PASS 
32S: ISR C, DRVSER ; IVE SER. NO. - 
ISR PC’ CRTSER :TYPE “CART. SER. NO. XXXXXXXAXXX" 
BIT #6iT7,3SWR SEE SECTORS SHOULD BE TYPED 
BEQ 305 A FP T 
JSR PC. TYPBSF : TYPE SECTOR FILES 
30S: CLR INTCHR SINIT. TTY INPUT CHAR BUFFER 
RTS PC RETURN 


g SCART « DIGHOUNT TEST CARTRIDGE TN NNNNRNESEES 
éaTT TEST CARTRIDGE 
iftus SUBROUTINE 7B CTS THE OPERAT tet THE DISMOUNTING 


*OF THE TEST CARTRIDGE ON THE DRIVE CURRENTLY UNDER TEST. 
TST ileal einaieleaieiaeileeineleteelaeieiaiineiieaiineiiaeiianiseiselian 


ieee 
DRVPTR, RO ;GET DRIVE LIST POINTER 

MOVB (RO)+, OI1SPAK+15.°;PUT DRIVE NAME INTO MSG 

MOVB (RO), OISPAK+14. 

JSR PC. INITSS s INIT PL Ize etnte 

BIC arf RKCS1(R2) 501 06 NTRPT fOr MANUAL INTERVENTION 

TYPE SPAK ;TYPE “UNLOAD ORIVE Xx AND REMOVE PACK™ 
SS: TYPE 0 OYPRUN :TYPE “ R<CR> HEN 

TYPE ’ DRIDON : TYPE 

ISR PC, ROCHRS * WAIT FOR RcCR> RESPONSE 

125 ?(¢C) RETURN ADDRESS 

165 (¢2) RETURN ADDRESS 

S$ >(*U) RETURN ADDRESS 


cenegeo ve OR_CPT PROG MACY11 30( 1046) 


O2-DEC-77 10:46 


CZR60B .P 


126 
isi’ 
be Shaee 
Berl Bares 

4 1100 
13H 


5 EA t4 00S21e 
Bee Bis 


021170 


ee ee ee ee he ee he ee ee 


se iPsnnr osname ad ageetraatatmrag « 


CVV UT TT UT TT TT TT TT TT TT TT TT OT 
ALONG VOM LOO we VOUT 

fore 
SN 
RE 
sf 
Ne 
: 

oO 


ae ee ae ee ae ae eb be a be ae ae ae a be ae ae ee ee ee eh ee 


“ 
o 
f 
ft 
N 
= 
ih] 
<= 
Oo 


000122 


LO8 


O2-DEC-77 11:48 PAGE 103 SEQ 0102 
DMCART - DISMOUNT TEST CARTRIDGE 
TST RO ;SEE IF NULL INPUT 
6$ es Oe UFF eee BAD INPUT 
TYP Babes 6 <7) AND <CR>,<LF> 
BR &$ :GO ASK AGAIN 
12$: HOV ESTACK , SP jRE-IN T THE STACK 
BNE mos Be if NOT 
IMP DFSTRT ‘RESTART PROGRAM STAR 
14S: IMP ALLSYS G0 ASK FOR SUBSYS’S AND BRIVES AGAIN 
re EE ee He ecntn 
MOV #STACK, SP PE NIT Fhe g, 
IMP ASKSYS 'GO ASK FOR SUBSYS TO TEST AGAIN 
8s CMP BUFFO, #’R SEE IF R<CR> TYPED 
ae Be, INITSS pONITIALTZE S.S 
RTS : ; + URN baad 


par iem OF ORIVE NUMBERS 
T CURRENT ZONE. IT USES 


or FoR Te FIRS 
ABLE, FORMING ROWS. "FOR 


Sedu area “ARAB ET 


AMR Ac A nc aa 
LOAD THE FIRST C OF TABLED’ T 
HEov Se TDL ST RO ; START Nee OF STDLST 
MOV a TABLED, yt j START NG OF TABLED 
4$: MOVB tao + (R1) : BYTE INTO TABLED 
AOD He. Al s BNC NT TABLED POINTER 


ug YET 
;GET oF o FIRST ZERO ENTRY rh PDRVLST I NONE 
sORVLST,RO ; STAR RORS Le DRVLST 
CCR Ri ; NTT X10 


6S: TST (RO)+ >SEE I 
sia at POR AEMCHT POINTER 
ANG R1, #16. tobe DONE LOOKING YET 
INCREMENT. THE DR NOS. TO FOR ,eF Yi. = 
bs: MOV STMBLED RO ;INIT T EDP OINTER 
16S: MOV, HI: (Ra j INET ROW L LEMENT COUNTER 
18S: INC TER Fou A NENT v 
cnr R3, #20 BEE IF ROW yo ELEMENT Ate VALID 
tr 3 ash are 18 ok 
20s: CMP R3,R1 SEE IF RLU Is >» ACTUAL DRIVES 
BLT 22$ BR IF VALUE O 


CZR6Q@80 RK& DR CPT PROG MACY11 30( 1046) 


CZR608.P11 O2-DEC-77 10:46 


177 


UKIUT UU UU UU UU UU UT UT On 
ee ee ae ee ee a ee ee he ee 


if 


RinteteN tk bani iteteN tht arb tate «| 


sats 


SEER 

WONCU CWO. 
forororerorororaraforore 
SRRan7 eeu 


gages 


forororore 
Dee 


88 
2R825 


o62v02 26S: ges sro? *R1 toad 
4 ° 


02-DEC-77 48 PAGE 104 SE@ 0103 


INTBLO - INITIALIZE TABLED 


A 000377 ta #377, (RO)+ BRO QCEED ENTRY = 377 
sce: rove R3, (RO)+ CET VALUE I TRGLE 
4$: Cc R4 CR_ ROW ELEMEN COUNTER 
ane $ IF _NOT WITH vg ye? 
006512 STABLED+2S6. et, Le YE 


LO 1 
;SET INVALID ELEMENTS OF inst olttnd « 377 


888026 HOV. SB, HINIT GOL ELEMENT COUNTER 
“ERENT IS VALID 


26 30S: apo He PID BELEN indy” 
st RESREG _ ; Be IE,NOL ALL b — 
00020 RTS PC ; RETURN 


eee EE ee IIe TRA ED RiGHt 2? ChUNS.6SSeeee 


 RBTTL ROTELD - ROTATE TABLED RIGH 
;*THIS SUBROU INE ae ES ALL ELEMENT ABLED RIGHT 3 COLUMNS, 


sua0 MB. 2 DRIVE DATA WILL BE ROTATED SEVERAL SECTORS IN EACH 
eT ereririititttttitiiitiiiiiitiiiiiiiiiiiiiiiiiiiiiir iro r ose 


04407 AbTBLD: SAVREG AVE 
5706 006512 MOV’ ATABLED#256. ,RO Bai 18.9 oF, OF TABLED 
S297 pp0gss ” nov #13. RY ap i EAVE Caste ERENT COUN UNTA THIS ROW 
uos> 6 BpL Soe Move = ~eRO StmPiB 
4037 001310 MOVE -(RO) 'STMP13 
4041 6S: MOVE -(RO)’=C(R1) ;MOVE AN ELEMENT RIGHT 3 PLACES 
90304 DEC RY {DECR_ROW ELEMENT COUNTER 
41 901304 MOV Stmei1, ~<A) Be IN 3 SAVED ELEMENTS 
741 001306 MOV TMP12’-(R1) 
3741 001310 MOVE  STMP13°-CR1) 
020027 006112 CMP _—sRO, #TABLED E IF 5 NE WITH TABLE YET 
101354 BHI us . Hond NOT DONE YET 
104410 ESREG ESTO 
00207 ts PC 


agh 


« RE RM MMR ERRRRAAA RRA ARARARRERERRRERRE RE REAR E EEE 


TMS PRTC MAP AR cor uRacar om 


A ds N ON ONC ENT RPC OCES 
tSTHE ‘OG TeAL OORIVE RNUMBER MUST IN TTOGDRY 0 NTRY 


PIT CALLS WRTSEC TO ACTUALLY WRITE EACH 2S6-WORD SECTOR. 
WT TTriTitiiittt tt iiti titi iiitt i ttiiitititit tt Lite Litt ie 


CZR6Q@80 RK6 OR CPT PROG 
CZR608.P11 02-DEC-77 
S233 1 1 7 

es 11 
114 
cee Bealls Sieths 
Se 1 1 
52393 1 01 
se 
ak: 
144 1601 
1% 11 
1S4 
i 
1 1 S 
Se 170 lebSe7 
Se4 1 770 
Se 701 
eses 1 ela 
3518 001347 
sce BSsle OBss49 
SeS6 
SeS7 
S258 
S259 
5260 
Se61 
e5e5 
S264 
Se6S 
5266 
S267 
5268 
5263 
ert 
Se72 C2e3220 104407 
cra Bese Aix 
75 32 737 
567 Oe3e36 001470 
78 Ge 004737 
Se7 oe3544 1 rine 
258 3526 SO 
e5Ee ossesh 
5283 13701 
Be Bese Best 
301 
Se86 Oe3e7e 006301 
Se87 Oe3e74 006301 
Se 023276 006301 
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003154 
Sle 
lle 


003154 


006572 


050008 
000020 
ooo000e2 


003143 
oocde4 


034310 
000003 


001174 
177760 


ooo004 


ooo00e 


oos4e4 


003143 


02-DEC- 1:48 PAGE 105 
cYLI 


WRTBLK - WRITE ONE NDER BLOCK 
WRTBLK: SAVREG ;SAVE RO-RS 
MOVB OGDRV , RO ?GET LOGICAL DRIVE NO. 
ASL :CONVERT IT TO DATA PATTERN INDEX 
MoV WRBLES SRL ,R3- 3GET bara PATTERN WORD INTO R3 
MOV *GET TABLED POINT 
MOV :INIT CYLINDER COUNTER 
4S: V 16,4" 
6S: CMPB oe (RO)+ ; SEE IF DRIVE LISTED HERE 
BNE 6% :BR IF NOT FOUND YET IN THIS ROW 
DEC RO ;BRCK UP aM i YTE 
SUB R1,RO > COMPLI POSITION 
MOVB SECLST(RO),P.SECT(RS) -GET SECTOR NO. FROM ROW POSITION 
CLRB P. TRCK(RS) ;SET TRACK = 
8S: ISR PC WRT SEC ;WRITE gob AT THIS SECTOR 
INCB P. TRCK(RS) 7 INCR TRACK NO. 
cne Bp, TRCK(RS) , #2 ;SEE IF ALL TRACKS DONE YET 
ADD #16.,R1 :POINT 8 sPont oF NEXT ROW 
INC P.CYLN(RS) 5 INCR CYLINDE 
DEC RY j DECREMENT CYLINDER COUNTER 
BNE 4$ ; 535 bcyL, NOT DONE YET 
RESREG : ORE 
TS PC RETURN 


peXSCOR = DECREMENT DRIVE SCORES ROUTINE NN NNNAAEAESEREEES 


Ack 
its OB UBROUTINE HECKS TO ET a3 PROGRAM IS CURRENTLY 
} AREADING OVRWRT CONPAT DATA, FESeT AND HANDLING DATA CHECK 
VE WHICH WROTE THE 
SFAILING DATA ats CREMENTED. 
are ENTRY, THE LABELED “TSTTYP™ HAS THE FOLLOWING 
: x#POSSIBLE VALUES : 
2 i TSTTYP =O - = Nor TLY READ Mut "Bole 
1 i = i - SEN pe H OFFSET 
i 2 - PRESENTLY RE ata BOTY rrsey 
seenanenenansebnnineeetaeiSiene te EuESEEEEAEONONEEFEAEHETOROOOE 
&kScor: SAVREG 
TST TSTTYP SEE Fe SI TESTING WITH OFFSET 


BEG 20$ IF NOT 
BIT #OCKERR! HVRCER, ré ee: SEE "be A DCK OR HVRC ERR OCCURRED 
;GET THE NO. OF THE DRIVE WHICH WROT TA WHICH CAUSED DCK OR HVRC ERR 


JSR PC, GTPKAD ; COMPUTE K ADDRESS OF ERROR 
cHPS #3, TSTTYP i SEE 1B Od DOING SELF-TEST 
CLR RY Ser tee NO. = 0 
BR 10$ 
4S: MOV éR EGS *GET CYL NO. OF ERROR 
BIC #1777 740. R1 ? CLEAR HI CYL BITS - 
ASL Rl :CONVERT TO TABLED INDEX FOR ROW 
ASL Ri 
ASL Rl . 
ASL Rl 


SE9 0104 


a a 


ezReee. Pit OF ee Enos me 30( 1046) 


006112 
001200 


000620 





ee a 





HAEREAL AY AER A Rt A ke te dt te de 
Bos fo he b= be be eo he 


WONT CWO 


iw 
iG 


as 


Wu 
iG) 
rm 
W 


i 


pane 
ReBse 


$333 


S344 023424 


| 
| 
| 





006S72 


000001 


B09 


WRTBLK- WRITE ONE CYLINDER BLOCK apoio 
g0D TABLED, RI sigs NTER TO TABLED ROW 
bs: cHPB He \SECLST(RO)’» * weal Ufstep IN SECLST 
cr RO, #16. rat + CHECKED YET 
wh ag die Pat eis 
as: app, RO, Ru Ent FAILING DRIVE 
move (RL),RY VEN. 
cHPB 8377,R4 iy S NOT BEING TESTED 
108: Ya «Orso Re” OFST DIRECTION 





7 


G 
ig ox SCRATCH SCORES 


ot pas ee eR 2 


oO 

: 
3803 

& 


SE 
Feil 3 FORT prac eee 


BoD 
14S: RY 


RO OR DRIVE 
MPB (RO), OF SCNT Nien fo 18° PERFECS FAR 
NE 20s xIT fF HOT 
cB (RO) NT T SCORE FOR THIS DRIVE 
20S: R SREG me 


Par aaa 
Betag by 
; LEC 





agi oT 
pct) Ts TYPED, 


Rg (#2) 
tat (tU) 1? TNPUT IS TYPED. 
aI Y "BAITCH RE REG OYE S OPENED 
5 OR eA BRAY iF TED, AND THEN THE (*G) RETURN 
pSIHE TAPGER OF INPUT CHARACTERS IN THE BUFFER IS RETURNED 


-# 

'% CALL - 

te CONTROL -C’ Fey TURN ADDRESS> 

te <CONTROL-2 RETURN 55> 

+ <CONTROL-U OR ERROR RETURN ADDRESS? 


;% 
errr iititititititttitiiiiiiiitiiiititini riper sees pir rrerrr rss 
RDCHRS: 


a 





;SAVE R1 


HRI TISLISE RUESGTER GPW Ton 
5 Bee AARACTER ENTO Re 


; SEE 4 (tC) TYPED 
fed r (tC) 
UT_RET ADDRESS ON STACK 
;BR TO TAKE EXIT 


;SEE IF (02) TYPED 
F  S #2) 


: &th PC POINT TO NEXT RETURN ADR. 
:BR TO TAKE (#2) EXIT 


:SEE IF (40), TYPED 
IRENE Bec porwr. 1 
“it Net 436) are 

Late 


Ss ae: 
peek The 
heck § 
ine eae 
RENENT COUN HOgO FOR TEMP. BUFFER 
- INTO BUFFER 
(eas, HER CHARACTER = 
ICATOR 
F INDICATOR IS NOT SET 
ene eee: INDICATOR 
3 SEE IF ie R> TYPED 


Oe bie segs. surten REG. FOR CHANGE 


ore T (OGL) TYPED 


TER COUNT 


8-Our INDICATOR 
REVIQUS RUB-OUT 


IPOICATOR 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 107 
CZR6QB.P11 02-DEC-77 10:46 RDCHRS - READ A STRING OF KBD INPUT CHARS 
S34S 023424 O10146 MOV -(SP) 
5346 ets 010246 ere * Bivens 
axe iREAD A CHARACTE 
b351 B53u3¢ 173¢88 ° Rove (SPi+,R2 
535 ;CHECK FOR (?C) 
3333 422702 000003 CMPB #003, R2 
012102 aia _ 
oo0004 3S: HOV gicsP), 4(SP) 
sCHECK F #2) 
023462 122702 000032 agt oReg #032,R2 
Sieh estes Aes NEE 4S 
eaeh BA8S82 oo0004 ayia sy 
4 aa sn gHECK FBR tu) - 
Bass 3504 2702 o00025 6§: hes #025, R2 
7 n3 ip 06; 1 TYPE i 
ers peaeie O6e7b6 845584 00004 7s: goo iS NSP) 
:CHECK FOR (?G) 
578 a3 co 000007 8s: CMPB a: Re 
7 1 012126 NTRLG 
74 40 7 T 
led 320 737 021136 J rs SWRG 
78 CHECK FOR RUB-OUT (DELETE) 
000177 8 CMPB #177,Re 
eG OG 
17 BEQ 2s 
1 70 TST R1 
the Ais 
i 012137 YE SLSH 
See rad oos444 11S: R RACH 
oo0S2i2 oos444 MOVB BUFFOCRO), soneend 
rs. nt O0OS444 TYPE 
: 14 $701 14S: is! Ri 
5332 Besees of 012137 ive Bksust 
5394 : CHECK FOR, A geri RETURN 
Gea gia s70mUS - mag 
539 ; HANDLE POSSIBLE. DIGIT 
5398 023634 00503 S444 CLR CRACH USE SCRAT H WORD FOR TEMP. FFER 
5399 023640 110237 oOs444 H VB 2. SCRACH HIS CHARACTER IN NTO BUF 
5400 023644 104401 oOoS5444 TYPE , SCRACH tECHO THE CHARACTER TYP! 


NEXT RETURN ADDR. 


SEQ 0106 


D039 
7Reab a Stein of KD INPUT CHARS 


MOVB Re, BUFFO(RO) ;PUT CHARACTER INTO BUFFER 


(ae Ho HER CRSRBeAEAE vrco 
se at INTO BUFFER 


SEQ 0107 


EFReGB-Pil” oS-DEC“7? Orde ROGHRS 


S401 023650 110260 Oo0S2i2 


a. 


Bue 
sis 





0 3 

001324 TYPE S Yee <4?) >, <LF> 
, R537 RF 486784 7 8 ggout i Take ERROR EXtT FROM RDCHRS 
Bui Be3718 886866 005212 ‘ M 08 BbEFocRo OTe ERR RATING Nu NULL INTO BUFFER 
412 766 000004 ADD 86. 4(SP) 3FIX UP RETURN 
iy Saas Sister ss FY SAT HSIORE 
416 7 5 RTS . + BEBROUTI EXIT 
ae 
241g SBTTL ORVSER — TYPE DRIVE SERIAL NUNGER (LOW 3 DIGITS) 1 
peo DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 
Hel ‘Pius, sPeNsot ie TYPES “DRIVE SER. NO. XXX" (IN DECIMAL), WITH LEADING 
Buss JAE TaR Ree nae RE Rieaeeenneneeenne ee nnne ee eeneennenennneeeeeee 
4 bast SAVREG s SAVE _RO-RS 
4 1170 13k Rein PARANE TERS 
4 141 000001 VB TAT cnn Re pehD' or FOS COMMGRD 
4 146 JSR Ate "gia THiS DRIVE 
4 11731 TYPE :T 
4 74 TY if tg 
4 4 MOV B Seis Rl ;GET “ge AT BYTE 11 
ai3h 043156 MOV sSOCTVL,R4 ;GET OF C FER 
m of MOV Ra, = (SP) jSTORE IT ON STACK FOR SSUPRS 
tr ous ROL Rl’ HTN Tat Toe POSITIONS 
5436 4S: ROL R1 ;GET NEXT 4 BITS 
4 ROL R1 
4 ROL R1 
436 ROL Ri 
440 MOV Ri, RO ;GET A WORKING COPY 
441 177760 BIC #177760,RO *CLEAR ALL BUT Low 4 BITS 
44 000060 BIS #’0,RO :CONVERT A DIGI TO ASCII 
wis MOVE RO, (RY)+ PUT ASCII iGiT NTO CHAR BUFFER 
2uue BSapae BEE Rg BE Fah 5 Cc YET 
Sue O14 est cLRB CRY) naa j INSERT NUL NULL TERMINATOR 
an Bedoue Hai Boise 1 3B PEcAe : TYP! ce “Ane ue 
44 4 10441 RESREG ;RESTORE R 
S4SO O24054 000207 RTS PC ;RET 
5451 
Be 
Bae : aE TEER TENT VDE CARTRIDGE SERIE MUR 
45S éaTT RTSER - TYPE CARTRIDGE SERIAL N 


SER. NO. XXXXXXXXXXX" CIN OCTAL), 


STHIS SUBROUTINE TYPES “CART. 


EOS 





Cc RK& OR CPT PROG MACY11 30(1046) -DEC-77 11:48 PAGE 109 SEQ 0108 
eSReSB PT) 02-DEC-77 10:46 CRTSER - type CARTRIDGE SERIAL NUMBER 
5457 ;#WITH LEADING ZEROS SUPPRESSED. 
ey os ERERERREKERLERRERERELAAERAARARAKRRRARRRRKRARAARERRRRERRRRRRRRKAEKE 
4e0 MOs5es paddes 000007 CRTSER: JSR OS APAT P.CSIM(RES SET oe SECTOR FORMAT 
461 70 7 eye is¥B FoAnat stip ioe K rhe pc toa FORRAT 
463 1 INCB P. CT (RS) IF SECTORS, RE AD SECTOR 1 
464 i is 1 900001 4S: MOVE TA,P.CMND(RS) ;SET READ COMMAND 
M3 it i 002 MOV csicy Ps YLN(RS) 3 Te¥t = 32,007) /14S6(0CTD 
467 1 1 2 0010 MOV aRuEU P BALOCRS) . BUFFER ADDRESS 
1 76 000012 MOV #-2,P.HCCRS) i SE OUNT TO READ 2 WORDS 
me 1 7 146 JSR PC ; R NO. IN BSF 
47 isq jowso, O11747 TYPE SERNM ‘TYPE “SER NO.“ 
47 124 bis74e cents MOV bRUGUE -(SP) :GET POINTER FOR $0820 
73 160 737 30sh JSR PC, a8 ; CONVER BINARY TO OCTAL 
474 164 737 3370 JSR PC a8 Ss : YEE CAR - @SERIAL NO. IN OCTAL 
475 1 104401 1325 TYPE gt :T <CR> <LF> 
476 174 RTS pC RETURN 
4 ; THIS ROUTINE ASKS THE OPERATOR FOR THE DRIVE TYOPE AND ALL FUTURE 
4 'TESTS WILL BE PERFORMED ASSUMING ALL THE DRIVES ARE OF THAT TYPE 
481 176 GETTYP: TYPE , SCRLF 
4 202 TYPE KTYP ;ASK DRIVE TYPE 
4 is PC, ROCHRS ; READ INPUT STRING 
4 1 TTYP *CONT-C RETURN 
54 14 GETTYP :CONT-2 RET 
puBe 16 GETTYP :C Tu RET 
4 r RO : EE I ngHiAR TYPED 
2ugs S 1S: YE , BUFFO HECHO BAD INPUT 
ey TYPE SQUES : TYPE <?> 
o 1 R gETTYP :ASK AGAIN 
BY 236 2s: cNe #6, BUFFO jSEE IF 6 TYPED 
495 éLke HeENT ee TOP FOR RKQS 
4 MOV 825 HOLDI 
Bg ys R ee une 
d v Hae HOL 
1 MOV #40; HOLDS 
5 1 RTS PC 
2 3S: cNe #°7,BUFFO jSEE IF 7 TYPED 
2 B1SB 8B.COT, TYPENT *SETUP FOR RKO7 
5507 4 MOV 2s: 
2 58 MOV % des HOLD2 
MOV #200, HOLD 
5510 Oe4 MOV #160; HOLDY 
5511 4374 MOV #100; HOLDS 
S5i2 oe440e RTS PC 





CZR6: 
CZR6 


WUT 
eee 
WOnNCUI LW 


hed bbe Ab ded ete de de dete de 
BIUUR RU URRON 


UU 

mui 
[A] 
— 


e533 
5s 
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ooo40o § 154506 
042252 
042352 
005432 
000016 
aes 104407 
SOY 012701 053342 
510 O1e700 005766 
S14 O12e703 000020 
4 BLEOS 
452. Ole? oS4342 
O24Se6 103003 
024530 005303 


FOS 


O2-DEC-77 11:48 PAGE 110 
CRTSER - TYPE CARTRIDGE SERIAL NUMBER 

LSTCYL: O 

HOLDI: O 

HOLDe: QO 

HOLD3: O ;CYL_DIF 

OLD4Y: O :COMPAT START CYL 

HOLDS: O ‘HALF CYL DIF 

3 srr ter. ett FOR GT UNIT STALL TIMES 
‘4STTL STALL - STALL FOR ST UNIT STALL 


TIMES 

THIS SUBROUTINE STALLS FO FOR ST STALL TIMES, 

US, F AVERAGE CPU. IF BIT 8 
ALL OFS APPLY 


;*# C = c 
ererie rit ttiiiitiiitiititttiiittitiiiiiiiiiiiiiiiiiiereeeerrr yf 


STALL: MOV RO,-(SP) eae RO 
MOV R1.-(5P) 


; #IF "Sur BIT 8 = 0 
; *#WHERE A STALL T = 40 
; QUAL 1 


agtT08, as Be Te “awoon sraLt : 
JSR PC, SRAND N NERATE PSEUDO-RANDON NUMBER 
ROR BG . gt é i Dun 
BR = ;GO_STALL WITH RANDOM NO. 
1S: MOV ALLS, RO ?GET REQUESTED NO. OF STALLS 
BEQ 6S ?RETURN IF NO STALL REQUIRED 
2S: MOV #14.,R1 SET ¢ TANT FOR 40 US 
fe Titer t83e gguvres 
DEC RO 5 OU LOOP COUNTER 
BNE 2s : OUTER P 
6S: MOV (SP)+,R1 sR R1 
MOV (SP)+)RO *REST RO 
RTS PC ?RETUR 
; = REMARK KERR RAR RRRRARRRRREKRRRRRRRRRRRRRRARRKKRKRRKKKKKKREKK 
trhOPReces The BLPToM [De Stead" Ge Pte bata eurrEnCtnuaury 
9 RU A TE le dd bl 
(dosec: SOV” BRMBUF RI SEY eORS OF R/W BUF INTO RI 
2s: MOV #TABLEB, RO Trp ay eounie ADDRESS 
MOV 16. ,R3 NIT PATTERN 
4S: MOV tro} + (R1)+ *MOVE A PATTER NORD 
CHP Rl, #RWBUF+S12. :SEE IF DONE yET 
DEC R3 :DECREMENT PATTERN COUNTER 


SE@ 0109 


09 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) 02-DEC- -77 11:48 PAGE 111 SEQ 0110 
CZR6QB.P11 O2-DEC-77 10:46 STALL - STALL FOR ST UNIT STALL TIMES 
5569 ge4532 001372 BNE 4g ;BR IF NOT RESTARTING PATTERN YET 
MR AG 9s: RESREG ** fA 
a Osis beg2a9 ; RTS PC RETURN 
5s 
5s 
5576 
2258 
2223 SBTTL “FINADR ~ COMPUTE FINAL PACK ADDRESS "0° * Oe 
peel STH SUBR "Hike, es ED AFT k F bATET RANSFER HAS COMPLETED, TO. oe 
ch SOD 8 petely ana ceeeb gece 
2ege tSTHE sleet wt san A6 DETERMIN FPR Ea NER Tee E tuar 
2289 > *DATA sic - ‘ Ress 0 wil or han 
ey 42 04407 i “ ee ee 
260 bsyeag b13746 005474 MOV LASTWC,-(SP) 3ST ve 
pea! $9 416 NEG (SP) ;MAKE IT POSI 
5 18S: CLR -(SP) ;MAKE ROOM ON ST 
2 4 1 HOVB 3 P), (SP) ist Ueati Sines de TRANSFERRED 
S 4 116 oo0002 MOVB P.SECT(RS),2(SP)';S ite Bec TOR 
2 1 ADD 2(SP), (SP) DET RMINE FINAL SECT 
Be3 Oe cLR e(SP) : 3 R Ne tie OR ANSPERRED 
5533 7 003134 TSTB FORMAT ; TERM ne ree F T 
i 14 BEQ 19S : F 
5601 14 2700 oo0024 MOV #20. RO >SET F T 
eet terse ae a al eS ae 
is SUB RO, (SP) : be T SEC COUNT BY 30 OR 22 
Bee alata nT OCR FOR SECTOR OVERFLOW 
5608 a4 auniliha m FP re 810 aa FoR TRacks TRANSFERRED 
2608 a? 1 16 oooo0s MOVB P. TRCK (RS), (SP) 3ST Ron RT NG TRACK 
610 1 ADD e(SP), (SP) j DE TERM NE FINAL TRACK ADDRESS 
Bis fees tee me aus: Eine yee SEE ES ae Geet 
5614 4 i6 900003 SUB #3, (SP) + DECREMENT a COUNT BY 3 
5615 2 INC 2¢SP) ;INCR CYL COUNT 
5616 74 BR 215 ; CHECK FOR K OVERFLOW 
5617 1 posH72 228: MOVB (SP)+, FINTRK *STORE FINAL TRACK 
5618 7 Si6 oo2 ADD P.CYLACRS), (SP) Hoeaatad —E FINAL CYLINDER 
5619 ? 011637 005470 MOV (SP) FINCYL CYLINDER 
5 4712 726 TST (SP)4 AN OFF Me rAcK 
5621 4714 104410 RESREG :RESTORE RO-RS 
5622 024716 O00207 RTS PC RETU 
5623 
5624 
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36 
ct 4720 4 
Zee 0137 

639 7 737 
S640 47 1007 
S641 7 12700 
12746 
1 
2 


04407 





00S466 
OOS446 
OOss6e 
boaave 


000001 


HOS 


O2-DEC-77 11:48 PAGE lle SEQ O111 
FINADR - COMPUTE FINAL PACK ADDRESS 


= Se Se ME SE SE SE HG SE aE EE a HE HG He aE Ee a Sa a a a aE 


‘kat 

TAS BURNULIOS THR GLE RE SOE 10 gy 
a Ae: 180-5 «3 , gure Bl RiPY DEFauL AULT bara test 13, COMPRISED 
RUE carne 


LODBUF: SAVREG 
MOV 


WOSXFR, R2 IgE N0 BE WORDS 
rst PaTRN iP ofickXe VERIEY pata TEST DESIRED 
MOV #PATOO, RO T DATA PA TERN VET ARTING ADDRESS 
MOV Hes . (SP) ; SET PATTERN OUNT 
HOV a ,R1 ; SET BUFFER 
33 gtR #81TO,R1 ate Fords, % is 
BAe i , : rs THI alt I Set 
INC RO ? INCREMENT PATTERN NO. 
ASR R1 :SHIFT TO E WH! NEXT BIT 
BR 4g *BR TO CHECK NEXT BIT 
6S: ASL RO :MULTIPLY PATTERN NO. BY 32(DEC) 
ASL RO 
ASL RO 
ASL RO 
BSL RO 
A #PATOO RO ;GET ADDRESS OF DESIRED PATTERN 
MOV -tsp :SET PATT Cc 
MOV PAB "AL :SET BUFF & $$ 
30S: MOV RO AS :GET_A COPY PATTERN ADDRESS 
MOV (SP) ;INIT PA TERN COUNT 
34S: MOV (2934 CRL)+ 3L A DATA INTO BUFFER 
DEC Re : DEC REMENT COUNTER 
BEQ 44s L 
Cc RY IDE MENT PATTERN WORD COUNT 
NE 34S DONE WITH PATTERN YET 
BR 30 BR. 10 REPERT THE PATTERN 
44S: TST (SP)+ TA K 


RTS” Pc RET 


© Me-ME He He HE ME HE HE ME HE HE HE HE EE HE HEE ae HH EH HE EE RARER RRR KRE 


$8 WARE COMP TA 
Hi SUBROUTINE” P SOERFORNS A SOFTWARE COMPARE OF THE R/W DATA BUFFER (POINTED 
By pha AND F PHA+e ) one THE APPROPRIATE REPEATING DATA PATTERN. IF 
rere IS COMPRISED OF ALL THE PATTERNS 


x is (OU K VER FY FAUL ou alAT 
300" PATRN i, "5 ary, OE NO 0 THE it eet IN R1 ON ENTRY IDENTIFIES THE 
i «REPEATING Bata PATTERN TO COMPARE AGAINST. 


CZR&6QB0 RK& DR CPT PROG MACY11 30( 1046) 
CZR60B. Cc 
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S682 4 109995 
S683 1127 051665 
eee 4 0127 O07 053234 
444 
5687 7 1224 
: 737 446 
1 SS66 
91 110 400 
Beas 144 0S334e2 
S694 1 
epee 1 000001 
1 
ie tele 
1 
5700 1 
cre Bea 
$7 144 
$7 1 
2 i SS66 
eee 1 806026 
5707 1 SSO4 
ce Bel 
$710 OeS1 
2513 i7e S536 
eis serene 
eoid 053234 
$71 4 D01202e 
S16 PESELS CUOEY BRLAEE oo ce 
cig fesse Birrg, fais OOM 
$720 
$7e1 B b137 00S470 
cee Geese tte Bate 
7 4 
ue fe ce 7 001000 oOS4e4 
57 2 
z BELTS osu 
ee Gees fe 
5731 ve 177777 |=001174 
732 Rsast BOe037 1176 
5733 1 7 1200 
cra See Bese BEES! coco 
5736 025334 100' 
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O2-DEC-77 11:48 PAGE 113 
MPBUF - SOFTWARE COMPARE DATA 


SEG Olle 


a, wee ae 


éhpBuF 
#40, 0H701+38. 

MOV 87 bf esse 
MOV WOSXFR, Re 
CLR SCRACH 
ISR PC. REPSUP 
TST PATRN 
BNE 3$ 
MOV #PATOO, RO 
MOV #256. .-(SP) 
MOV #RWBUF , R1 
BR 30S 

3S: CLR RO 

4g: BIT #BI1TO,R1 
BNE 6$ 
INC RO 
ASR Ri 
BR 4§ 

6S: ASL RO 
ASL RO 
ASL RO 
ASL RO 
ASL RO 
ADD #PATOO, RO 
MOV #16.,-tS 
MOV Ri 

30S: MOV RO RS. 
MOV 

34S: CMP ( ti (R1)+ 
BNE 31$ 
IMP 4 

31S: CLRB 01+38. 
MOV #5, OF 25+2 

:COMMON COMPARE ERROR HANDLER 

35s: MOV R SREGIO 
nov g10' PASTHC 
JSR Bee ELRADR 
SAVREG 
MOV FINCYL,RO 
me Eine 
JSR Po BDSACK 
RESREG 
BIT #BADSEC , RECODE 
BNE 20S 
TST CRACH 
BNE 365 

46S: ERROR 34 

4B$: MOV #-1, SREGS 
CLR SRE GE 
CLR REG7 

36S: INC SCRACH 
BIT #B1T0, dSWR 
BNE 38$ 


SAVE RO-RS 

;RESTORE ERROR MSG PARAMS 
;SET NO. OF WORDS 

; CLEAR COMPARE ERROR COUNT 


ORE PREV CMND FOR POSS. PRINT 
See F THIS IS QUICK VERIFY DEFAULT DATA TEST 


BR T 
GET WR PATTERN STARTING ADDR 
:SET PATTERN WORD COUNT 

3 FER 


‘BR TO CHECK NE 


;MULTIPLY PATTERN NO. BY 32(DEC) 


ERI BORO. COUN ct PATTERN 


ory crite PRN RESS 
Bone PATTCRN WORD 
BR_IF ORPRRE € 
fADJUsT DAT SrEArE§,0 
JUS nusr OR MSG 
; ADJUST RROR A WORD COUNT 
;GET WORD NO. 


ser 2’S COMP OF WORD NO. 
5 EQPUTE Be ACTUAL PACK ADRS 


tae TC 

:GET TRACK 

SEE TFC Tuls, sector LISTED BAD 
BR IF LISTED. poner 8 REPORT ERROR 


BR IF THIS IS NOT PTRST ERROR 
HEADING FOR ERROR MSG 
‘INI CYL NO. 


; INCREMENT THE ERROR COUN 
:SEE IF ALL ERRORS SHOULD "ee REPORTED 
:BR TO REPORT ALL ERRORS 


joo 





CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 114 SEQ 0113 
CZ2R508.P11 02-DEC-77 10:46 CMPBUF - SOFTWARE COMPARE DATA 

5737 oo00012 oos444 CMP #10. ,SCRACH ;SEE_IF_10(DEC) ERRORS YET 

3 BLT Sus :BR IF ERROR LIMTT EXCEEDED 

2733 001174 005470 38S: CHP SREGS, FINCYL Bee F we PRERENT 

74 CMPB SRE GE, F INTRK E IF DIFFERENT TRACK 

74 BNE 4 S 
5743 CMPB SREG7, F INSEC BR IF DIFFERENT SECTOR 

5744 BEQ 44s :BR IF SAME PACK Ss 

Bf 42S: MOV F NCYL, $REGS :SET NEW PACK ADRS FOR PRINTOUT 

MOVB FINTRK, SREG6 
aay PRNBR 4 patna ; TYPE NEW PACK ADDRESS 
a 44g: NEG $keci0 T 
MOV -2(R3),$REG11 iGET GOOD DATA 

57 MOV - (Ri), SREGIE BAD DATA 

5 MOV G10; $REG14 5 OMPUT HYSICAL ADDRESS 
ere mt Bea 
5 ROL Shecia 
2 ADD PMA, SREG1Y 

Cc $RECI3 

5 ADD PMA+2 G13 

25eg MOV Ri srteis ;GET VIRT. ADRS FOR PRINTOUT 
ast ERROR 6 lagged ATA ADRS. 
5762 BIT #8176, 3SWR iore ETF SUST i ERROR SHOULD. BE REPORTED 
5763 BNE Sus :BR IF JUST 1 ERROR SHOULD BE REPORTED 
eced Sos: TST PATRN ;SEE IF DEFAULT DATA TEST 

7 BEQ 40S *BR I YES 

5766 40S: DEC Re :DECREMENT WORD COUNTER 
2767 BEQ 4S :BR IF ALL 

768 DEC 4 SRF MENT ATTERN WORD COUNT 
576 BNE 53$ WITH PA TTERN YET 
5770 025166 IMP 30$ ome O° REPEAT THE PATTERN 

2771 025172 538: IMP 34S 

77 56$: TST (SP)+ ;POP_THE STACK 

rae RESREG ‘a s RESTORE RO-RS 

5776 
ae 
S779 . eee ee Te SUBROUTINE CHECKS FOR (10) OR (?2) TTY INPUT) 
5780 ih CTLOUT sr Tyeeb the INE CHECKS Re (#0) 2 OR <s (#Z) TTY INPUT. 
5781 ate (30) Was HES SUBROUTINE TURN RVTST. IF (#2) 
5782 “WAS OUTINE RETURNS RPUTP. iN EITHE ASE, 
5783 46 aT, T ThsTRuc On. 15 EXECUTED aN. + IS RE-INIT- 
5784 NO INPUT, OR tReure 0 HERS THAN (tC) OR (42), 
5785 NO ACTION Is TAKEN. 
2788 CAL we JSR oy “PC, CTLOUT 
5788 = RRR RKERRRARRRRRR RAKSHA AAAARKK RRA RRRRRRRARRARRRKKRRKKRARAKKRHHKE 
5789 025564 122737 o00001 003127 &tLOUT: CMPB #1, TSTING SEE IF CURRENTLY RUNNING TESTS 
5790 025572 I BNE $ R IF NOT RUNNING TEST S 


00107 10 
5791 0e5574 005737 oos44e TST INTCHR ;SEE IF ANY 
S792 OeS600 001472 BEQ 10$ :BR IF NO INPUT 


kgregeo RK6 OR CPT 
OB.Pil Oe-DEC- 


Ta 


end 


UU 
N 





er aaa 


TST aT a 


WONWUL We 


: 
7 
7 
7 
7 
744 
Bet en 
es es 
582 7 
5824 025766 
58e5 
5827 
5828 
5829 
$830 
5831 
5833 
025770 104407 
$835 = 
SS SGEr7E large 
2538 026002 pio3e0 
sess BSc BETaME 
4e 026010 012765 
5843 026016 012765 
11276 
S846 032 boae3? 
5847 6036 104410 
5848 Oe6040 000207 





003126 


S334 
040 


053342 
177400 


000123 
030146 


FROG 8 rrp ay 30( 1046) 


oos44e 


003056 
ooon01 


oos44e 


oos44e 


003155 
oos44e 


000010 
00001e 


000001 


KOS 


Sy atl 11:48 PAGE 115 
CMPBUF - SOFTWARE COMPARE DATA 


SEQ 0114 


TSTB MDFLAG ;SEE. IF DEFAULT MODE RUN 
BEQ 12e$ 1 YES 
CMPB #003, INTCHR EE IF (#C) TYPED 
BNE 4 :BR_IF NOT (tC) 
- MOV #ALLSYS, RO ;SET RETURN ADDR = ALLSYS 
65: RESET ; RESET ALL DEVICES 
CLR INTCHR :CLEAR TTY CHAR 6 BUFFER WORD 
CLRB TSTING CL AR TTY ALLOW F 
MOV A. TORE & gt hy ADDRESS 
MOV #STACK, SP inet STACK 
MOVB SRECAL:P. ROCA) 7 RECAL Ree 
JSR PC. ORVCAL DO CLEANUP ATE 
CLRE TStTvP iSLene OrEser t Test IDENTIFIER 
CLR STSTNM 
IMP RO :E FROM TESTS 
4$: CMPB #032, INTCHR a IF ERO FYPED 
BNE 7$ >BR_IF NOT (#2) 
MOV #ASKSYS, RO ?SET RETURN ADOR = ASKSYS 
BR : TAKE EXIT 
12$: CMPB 3, INTCHR *SEE IF (¢C) TYPED 
BNE ‘oF IF NOT 
TYPE , HLTROD TY “HALT REQUESTED” 
TYPE CNTRDY :T “PRESS CONT WHEN RDY” 
MOV BHLTPRG, RO *SET HALT ADDRESS 
MOVB * 1, PASSNO :RESTORE PASS NO. TO 1 
BR : TAKE EXIT 
7S: CMPB #007, INTCHR SEE (*G) TYPED 
BNE $ -BR I T (4G) 
ISR C, GTSWRG : OPEN TWARE SWR FOR MODIFICATION 
8s: JSR PC; PREPKB iE KBD INPUT AGAIN 
10S: RTS PC RETURN 
AURTSEC = WRITE A BLOCK OF HOQCOCT) WORDS ONTO THE DISK. 
*THE TER BLOC KM oo ae pepe LOADER RISH THE 
s BADORESS. DATA WORD IS UB ASSED IN Kg ON ENTRY. RRBUE fs THE BUFFER 


iar baer 


WaTSEC AVREG 
LOAD THE Rv BUFFER WITH DATA 


M #400.R1 
4S: MOV Ra (RO)+ 

DEC R 

BNE 4 
;SET UP PARAMETERS 

MOV #RWBUF ,P.BALOC(RS 

MOV #-400,P.WCCRS) 
;WRITE THE DATA 

MOV 


ISR PC, DRVCAL 
RESREG 
RTS PC 


#WRDATA P.CMND (RS) 


Ser} RODRESS 
400(0C 

A BUFFER WORD 
ECR COUNT 
:BR IF NOT BONE YET 
) T BUS. ADDRESS 
SEF ok 
:SET WRITE COMMAND 

HE DATA 


WRITE T 
s RESTORE RO-RS 


SSeeeaa eee 


esReaee ft 


S864 


NN 
wr 


mT 
ee RE RET 


rereey tay 
SS RRR 


s 


BR 


& OR ose PR 


i 
WEG COW LEW LURE 


Oe-DEC- 


104407 
00S004 





104407 


ROS fel 30( 1046) 


ooo001 


177777 
OOS466 


000001 


77777 
S466 
SO4 


S 
oud S166S 
HOO0 
Bopo07 + Be3884 
031224 


BOSGbg 001202 


005474 
pe4s4e 


-DEC-77 11:48 PAGE 116 SEG 0 
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jipnenqnnssnansnsnngenaqsnusunsesssousessescrseuseescsestagenenee 
MEMORY WITH INCREASING Sint ie WITH 1. 


? kLOME NUMBER 
et Ss antiee ut Re ME ERORY "I ae OBMAe AND WORD COUNT 


sleet ttieieenemangnpgagpeerennrceteen 


int 


RY R4=0 NDICATES LOMEM1 
#1,R3 P INI TA WORD TO 1 
BR LOMO ; PROCE 
LOMEM2: SAVREG Rei) 38s 
MOV #-1,R4 4= INDICATES LDMEM2 
LOMO: nov WOSKFR, R2 WORDS 


;GE 
oO the oP eR presse 
BNE ; IF NO NCREMENTING DATA 
INC R3 NC MENT HE DATA . 


8$: 
10$: DEC Re 5 DECREMENT COUNTER 

NE ae (a NOT Oats LOADING YET 
12$: pees RES RE RO-RS 


55 He HE HEHE Ae a AE a A 9 HB a a a HH 
tke CKMEM1 - PERFORM 5 COMPARE OF MEMORY, WITH INCREASING 

;*NUMBERS, STARTING WITH 

; ¥#CKMEM2 ~- PERF SOF THARE COMPARE OF MEMORY, WITH REPEATED DATA WORD 


;*IN ON ENTRY. 
;*#BOTH SUBROUTINES REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE 


; #IN WOSXFR. 
respec aastevenvnssenegp gage eveeseseetttssees 


bene CLR R4 neg dares CKMEM1 
Bags S Garis 


BR CKAO 
CKMEM2: SAVREG 


CKMO: HOV Hobie, = ‘e ae Z-INDICATES CKMEM2 


A" che ‘BEY nen ADRS 
MOVB #40, 01704 +28. ;RESTORE ERROR MSG PARAMS 
POSS. PRINT 
6S: Z RS: Rise OnE ‘DATA. WORD 
B ice IF BATA COMPARES OK 
; COMPARE ERROR HAN LER 
M R Gl 610 ;GET WORD NO. 


SUB SXFR, SRE 
MOV GREGIO;LASTWC  ;GET 2’S COMP OF WORD NO. 
JSR PC, FINADR ‘COMPUTE ACTUAL PACK ADRS 


MOS 
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SAVREG E RO-RS 
Brees CHE 79 ie Fite = EY Ge 
fies feist 
0 


a 





vB PINSEC Re 
J , BDSRCK See Fits sector LISTED BAD 
SREG T 
p31 oos424 BIT #BALSEC , RECODE meeps PORT ERROR 
215 BNfs « bri?o1438. ASAE HET HERDER FOR Ne 
914 Oebe5e 053234 MOV #5, OF 25+2 E DATA WORD COUNT 
915 Oebet ? 9s: TST SCRACH Se PF nb FIRS aeRrOR IN IN THIS BLOCK 
91 3 BNE 10$ I 
91 bO7e 17S: ERROR 34 HERDING FOR ERROR MSG 
91 B6¢ 001174 118: MOV #-1,$REGS me CYL NO. 
915 . Oot CLR = $REGE 
<I: 10S the Baa MENT | THE ERROR COUNT 
base 152614 Buy 85170, 0SKR See ar eat ROR S_SHOULD BE REPORTED 
5924 273? 000012 oos444 CMP #10. ,SCRACH SEE IF 10(DEC) ERRORS YET 
5925 BLT 21$ ERROR LIMIT EXCEEDED 
Bass Bese 737 001174 005470 12S: REGS, FINCYL SE - JFFERENT CYL 
5928 123737 001176 oo0s472 CMPB § S$REG6,FINTRK i SEE IF DIFFERENT TRACK 
2386 Beesee 001200 005473 BNE e bd8c> FINsEC E IF DIFFERENT SECTOR 
ea32 @ OLazs 47 174 14S Hay ai ee Aen PrCK ROR POR PRINTOUT 
Gebasg Tiaegs BREO BRIT ORY, FIN REGS 
934 402 1 00547 MOVB. FINSEC; SREG7 
8 Geb4t 1 ERROR ; TYPE NEW PACK ADRS 
4 4 1202 15S: NEG G10 {GET WORD NO. 
5 4 1 1204 MOV 3, SREG11 :GOOD DATA 
Base f) 1 001206 MOV -2(R1), $REG12 DATA 
4 1 1 o012i2 MOV SReGiO’ G14 {COMPUTE PHYSICAL ADDRESS 
e340 4 181 CLR $REGI3 
eaue a4 i i516 Ror G13 
345 4 5 001212 AD! BRA $ReG14 
10 ADE 613 
gue 4 001210 A +2. SREG13 
33 47; 10137 1214 MOV R1,SREGIS ;GET VIRT ADRS FOR PRINTOUT 
94 476 162737 001214 SUB #2; SREGIS 
594 ERROR & ; TYPE £90 BND BAD DATA 
eat i 000100 152424 IT #B1T6, JSWR ‘SEE I usT 4 RROR SHOULD BE REPORTED 
14 001007 BNE 21$ ‘BR IF J 
egee 7 pipecene Se Coane E WHICH DATA DESIRE 
é BSE meet BNE 18S BR re IF 1 gate BesE =pATA 
pgse ge65ee 005203 S INC R3 : INC RENENT THE DATA W 
5356 Bed D0S3 20S: DEC Re ;DECR_ COUNTER 
595 0014 BEG 215 ‘BR IF DONE COMPARING 
5958 O26530 000137 026166 IMP 6S !CONTINUE COMPARING WORDS 


1$: 
5960 26534 104410 533: RESREG ;RESTORE RO-RS 





09 
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536! 026536 000207 RTS PC ; RETURN 
5963 
cosy 
eeee 
S967 [SURSSSTERSINSRRSRSHERNSS RR SSSSE ARERR ERNeSEseesetessereseessaees 
eere AD FACTORY BSF INTO BSFACT, AND READ SOFTWARE BSF 
96 STN BSSOFT. 
Base + 96 36-36 56 M6 HE HE HE HE HEH HEE HH HE HE REE EE RR AE EERE EER EE 
971 O26540 DBSF : 
2355 S40 004737 aaa JSR PC, INITS INIT THE S.S. 
97. 44 142765 000007 BICB #8: CFMT, CSIH(RS) “SET 22 SECTOR FORMAT 
974 At 76 121 000001 MOVE DATA:P.CMND(RS) ;SET RE DAT 
c) 1 iA 44 gocode LS cv. P.CYLNCRS) . SE cyl = 632/14S6 
3 i 00000 HOVE #2, P. TRCK(RS) 5 SET Tratk = 
g 2 Bie #10. R3 :SET FACTORY BSF SECTOR LIMIT 





5 574 F 2 
24 Bai 34 
23 Es ;BR_IF_2 SECTORS 
23st oo00004 ines SECT(RS) :SET STARTING FACTORY BSF SECTOR NO. 
bB14Y 01276) 774 12 6S: MOV P. WC CRS) COUNT _FOR SECTOR 
bbee Ol 010 MOV sBogacocRey _ 
7 3056 8S: MOV sass HANBLER FOR Ber READ 
5 14S CLRB WCE 1 NI " FLAG 
2 : 146 ISR PC CAL READ ACTORY BSF 
54 ? 1 TSTB WCEFLG SEE ANY ERRORS 
38 ; ooo0004 rat is P.SECT(RS) ier af No Nex 
330 66 ; aaa CMPB B SECTCRS) ,R3 SEE IF CIMIT EXCEEDED YET 
338 bE 7 031224 10S: ad PC, REPSUP Sings p FOR PRINTOUT 
a 15? osasue cre" Arfenc ee PRR Bae 
5 01 31 000010 12S: MOV OFT, P.BALO(RS) ;SET F OF THARE RECORD 
5835 2iG8 re BR Pa Lo Aaa, 
i MOV iF 3 TOR LIMIT 
5998 7 3134 TSTB see ak ve SECTOR FORMAT 
2000 127 3 fy té«TS MIT 
pone 135 0030S 14S: 0 SABSCH, A. ABNL ib "eRRoe Soe. HE FOR BSF READ 
14S CLRB WCEFLG sANIT THE ERR ERROR F 
1 JSR PC CAL SOF TWARE AGcF 
7 14 STB WCEFLG ;SEE IF ANY ERRORS 
6005 1407 BEG 165 ?BR I NOT 
765 oo0002 oo0004 ADD #2,P.SECT(RS) CHECK T SECTOR 
BS03 000004 CMPB P.SECT(RS),R2 ;SEE F as EXCEEDED YET 
BLE 145 BR YET 
6009 0736 10$ PORT NO RROR AND ABORT 
6010 012737 031504 OO30S6 16S: MOV SERRHOL, A .ABNL {RESTORE ERROR HANDLER ADRS 
BO11 000207 RTS PC + RETURN 
6013 ;*THIS IS THE ABNORMAL DRIVER RETURN WHICH IS USED TO HANDLE 
6014 ;¥POSSIBLE ERRORS IN READING BAD SECTORS. 
6015 027004 032765 130600 000034 &DSCHD: BIT #BSE!HVRC!DT Elopr? OCK.P.ER(RS) ;SEE IF ANY READ ERRORS 
6016 Oe70le o01002 BNE 4§ R IF A READ ERROR OCCURRED 


£ 





Bl 
QB0,RKG OR CPT PROG MACYI1 3O(104G) O2-DEC-77 11:48 PAGE 119. 


i me Ee ae ie 


ho 


2 
3 


0 
A 


SEQ 0118 


;GO HANDLE OTHER ERROR 
SET ERR 
:TAKE NORMAL DRIVER RETURN 


tiTypasr - TYPE FACTORY ANO SOFTHBRE BAD SECTOR FILES (BSF) 


LPiep'ScSiMitECy: In Ina eit ot oF TAL Po te CH BRD. SECTOR 


Peers SAVRE NNNMAAAESOONCAVE RRS 





SHAT rt) 
55 Bor 
407 t : SAV 
478 mov ACT+10,R0 
ae TYPE »FACTBS 
7 T : CT 
14 3S: TY - 1 
i T P A RLF 
4S: $8 tho) 
ect ORL 
TST 1 
a“ LY 
Oi egez Min 3 »NOFALS 
1325 TY SCRL 
ar 14 
8S: MOV (RO)+,-(SP) 
1 012147 T SPAcee 
1 MOV tRO), 
1 CLRB R 
1 SWAB R 
1 MOV , (SP) 
1 TY 
1 012147 T ac 2 
i 18, 
1 MOV yt 
1 TYPOC 
1 001325 TYPE utp 
144 TST tRO)+ 
1 INC R1 
1 000176 CMP Rl, #126. 
154 T 4§ 
1 14S: ST RY 
i INC Ags 
4 1g4 003172 MOV #BSSOFT+10,RO 
65 71 011775 TYPE SOF TBS 
6067 at Se 18$ RE EG 3 
057328 are” PC 





- 
TBD BE A PISTIR ose 
Te eve PNOR TRACK SECTOR” 


BE gt fete Else vere 
Fite a EMPTY 
fe panto 


AND SECTOR 
;GET THE TRACK NO. 


TY T 
i TYPE : PARATORS 
:GET TOR NO. 


; TYPE IT 
wen THE POINTER 
Ve I eR 
F LIMIT REACHED IN THIS FILE 


oF Gh 
etd ye FILES TYPED YET 
INDICATOR FOR SOFT. FILE 


T SOFTWARE BSF 
TWARE. AD SECTORS 


31 
id 


fp RRMA RARER RRR A EAR A EERE R EERE RE REAR RERER ERA RLRRRL RR RRES 


CZR6QB0 RK& OR CPT PROG ey ie 


CZR608.P11 O2-DEC-77 10:46 


6078 


are 927388 
Bere 


[ramet 


o000eS 
003134 


7 
04 000023 


po 

ronan 
Soe 
yeay 


Kee 
tuo £r 
~ 
rw: 
Ne 


Soe 
eS 


ooo000e 


NNNNNNNNN 


027332 104407 
027334 004737 027202 
027340 016500 000030 


COO SCSCSCSKSSCSOKOSSOKKTrrrrrrr 
ee ee ee ee ee ee ee he ee 


BVO LWV- SOO VN EO OSBIRRLOUHS 








C777 dM poe ao SEQ 0119 


aesioan - COMPUTE NO. OF WORDS XFERRED ON PARTIAL XFER 


R3,WOSXFR 


MOV 
RTs PC 


TA -tch-3-5-5-dehalad-iet-$-+-$03-tet-tal-+-+-trigh-+-4-+-4-+-+-tab-+-tabct t-te +-+-$-+-+-lalaalallalalalalalaialalaiaiaiel 
i INC PACK ADDRESS TO NEXT 


ixTHE CYLINDER IS PASSED AND RETURNED IN RO, TRACK IN R1, AND SECTOR 
FL rt et oi traeieebiehe art ait eee 


:#( TERMINATED BY BSE ERROR), AND STORE IT IN WOSXFR. 
fiiten: savac nnn e tsave'gocase ne nneaeetee® 
Rove P.CYLN(RS),RO Beye CYL NO. 
MO P.TRCK(RS),R1 3;GET ont NO. 
SECT(RS);Re ECTOR NO 
CL ; SECTOR COUNT To 0 
6S: CMP P.DCYL(RS),RO ; ORIG. AND CURRENT CYLS 
“OTS+1(RS),RI 
8S ; F NOT EQUAL 
cnre P_DTS(RS) , Re ; 
Q 1 : EQUAL 
8$: INC R3 3 
Pc, INCRSC : si SECTOR 
R 2 
12S: 3 ; WORDS XFERRED 
o 
: 
6 





ise. #21. ,R4 ; T bet MIT 
Bac f T E, TOR FORMAT 
MOV #19. ,R4 >SET SEC OR LIMIT 

4S: INC Re : NCR geo't 
MP Re, RY : if CTOR LIMIT EXCEEDED 
CLR RS : T SECT 
INC Ri ; eer 
CMP R1, #2 ; £x NO iMIT EXCEEDED 
BLE Be 
th RO 1 rf ck INDER NO. 

6S: ANG PC + RETURN : 


HINIOXFR = RID-TRANSEER PARAMETER UPORTE SUBROUTINE. 
bATHES OUT TES PMA +2, P. Oc RS) 

P_BBHTCRS), .WC(RS), IA Bree 10 6 RESUME A SFER 
pe NATED’ TED BY A BAD SECTOR ERR (BSE), A "Bata CHECK ERROR (DCK), 
ROMIUTTTITITCLELPELPELLL Ler oni tert tr ceee ten eeeeE EEE eeee 


DXFR: SAVREG v 
JSR PC, FINMEM ? COMPUTE NO. OF WORDS XFERRED 
MOV BoBC TE CRS) .RO :GET CYL 


COO OOS OOS SSOP Tr rors oo 
pat de dh dh de dh dh dt dh Dt St St Dh Sh eh ht eh de 8 tet dt dh dt dh eh deh dt ep dh ph 


CZR6QB0 RK& OR CPT PROG MACY11 30( 1046) 
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oos4e4 


PPFEEPPSRSASRS 


000010 


Seeteeee 





Ratatat ct 


22 
oF 


20; 
NUE 
3g6 


Gissss SRERHE costee 
Saasie oosSso4 


UNE 
SkS 


cee 
ane 
o000- 


FOV ODO NO LO OO WOE OR ODD VON LER Oe AOU E WOO VON E Coto Seb 
our 


O2-DEC-77 11:48 PAGE lel 
CMPBUF - SOFTWARE COMPARE DATA 


MOVB P.DTS+1(RS),R1 
move beergra "= 
BIT BBEKERA, REcODE 


A 8 
J Bc, pAGRSC 
_ Nove RIP TROK CRE) 
MOVB Re;P Se IgE ERE} 
ADD R3,P.WCCRS 
IT ap {BAI I,P 
CR ORG 
R3 
Bb Ed een 
PMA+2 
ADD RY. PMA+2 
MOV PMA, P.BALOC(RS) 
MOV Pmate 0 
BIC #177774, RO 
RO,P.BAHI(RS) 


BISB 
16S: perce 


v 
oO 


GET T 


ECTOR NO 
i gre BERGE EEEDanen 
Er 
BE Rie, 


Cx” AORS TO NEXT SECTOR 


) 
»PRST(RS Fis BUS ADRS INCR INHIB SET 
a, BY 


TES XFERRED 
;UPDATE Phx, PMA+2 
; UPDATE P.BALO(RS) 


; UPDATE P.BAHI(RS) 


i RES Tone RO-RS 


3-6 SE AE 6 A aE a A 0 A a a a a a a a a a a a HH 
PARAME T: FOR TRANSFER 


i keverns - 
*xGTPRMS - 

Aces 

MOV asa Ri 
v P.WC PWC (RSS, UDSXFR 

MOV 
CLR me oUF. Fe 
BR GTO 


GTPRMS: SAVREG - 
Mov sBARMOTe, Ri 


GTO: MOV 
6S: MOV Rb), (R1)+ 
NE 
RESREG 
TS PC 


E 
ee ee 


Rs ae 
INIT Praed°10 
ONT INUE 


“RS 
3 AV 


LTANSER ~ PERFORM A DATA TRANSFER, AND HANOLE BAD SECTORS 


og 
'%#0R DATA CHECK ERRORS, IF ENCOUNTERE 


HANDLE BAD SECTORS 


:*THE COMMAND MUST BE SET IN THE PARAM BLK. THIS SUB- 


SEQ 0120 


CZR6QB0 RKE DR CPT as ee! 30( 1046) 


CZR60B.P11 


ar 
2nd 


COOCOSSOSSS SCOT 
> a tae Bae Be be be Be an Be Pe ne ne Be 


Beene ORReRRERESESSeRS | 


WR OWONOU CWO 


Poroororore 
ob bb oo he 


puny 


be 
62 
be 
62 
be 
be 
be 
es 





6237 {he 


6238 0277 


= 


£5 


& 
Foooo 
FOR 


6239 027756 
6e4O0 027760 


O02-DEC-7 





027540 
027500 


031504 





003056 


oos4e4 


003056 


001264 


O2-DEC- -77 11:48 As’ 122 
C SOFT SEQ 0121 


ar AUSED 
sano Tr - ape ee SE 168 UST BE HANDLED, 
READING DATA W t. Ben a fhe pag AND DATA COMPATIBILITY 


=I Sonpnoeseoguonengeccnnnnnoosengopscgnontesennnnnennneosoee 






‘anaes R4,-(SP) ; SAVE R4Y ON 
CCR RY’ :CLEAR ex ERage FUNC 
CLRB EFLG CLEAR 
_ nov eA a.pen. iSet'D R ADRS 
CLRB RRCNT : EON 
ISR Be CAL : oan THE S555 FUNCTION 
BIT 3 RR! DCKERR! HV ee iF nar ;SEE IF BSE OR DCK OR HVRC ERROR OCCURRED 
INC + INC! INDICAT 
ISR PC, CKSCOR :DECR. DRIVE SCORE, - OF NECESSARY 
134 pop tiparR . M3 aaa To Re fee OMPEETED 
6S Tt ‘s ; ree ERRORS OCCURRED 
Q ’ 
ISR PC, GTPRMS ; store ORIGINAL PARAMS OF XFER 
JSR PC’ SVPRMS ?REST XFR, PMA, PMA+2 
8S MOV (SP)+,R4 ;REST 
nov BERRHOL , A. ; ST NORMAL ERROR HANDLER ADRS 
a 


S5TTL "SeancH Bao SECTOR TABLES ROUTINE 
satus ROUT TINE RET peelOns & 


pdt. He Sec Kreg TABLE Pee a Ee RED” BAD SECTOR FACTORY) 
seOnTA BLENDER SECTI 
Haney Reh ere te FORST ENTRY OR THe STAC IL BE THE 


YLINDER AND 
causa uenstuacsevsenaenseneuaenarneeaieenena400MeNO00i00000%% 
itt Re, $TNPe 
R as on RE Cc NTENTS, OF OF RY 

Ov CRUD hese br bad SECTOR TABLE TO SEARCH 

MOV (R4)4, ae nOOnESs FOR LENGTH OF BAD SECTOR TABLE 

ADD #1000" 

CLR R3 Sie R3 FOR COUN 

ADD #10, Re : Re_FOR PO POINTER TO CYLINDER ENTRY 

CMP RO, (Re) TEST BAD SECTOR IN PRESENT CYL 

BEQ 3S S- F ee K 

ADD #4,R2 ‘ELSE BUMP POINTE 

CMP Re; STMP1 steer IF OUT OF TABLE 

BGE S$ YES-EXIT 

BR i$ LOOP 


CZR6QB0 RK& DR CPT PRO 
02-DEC-7 


CZR608.P11 


6241 


eae e ose 


40 
42 
44 





pos7e6 





fie 30( 1046) 


46 





4162 
7700 


030056 


003162 
001000 


001000 


001302 


030056 


003162 
030056 
oos4e4 


oos4e4 


F10 


02-DEC-77 11:48 PAGE 123 
SEARCH BAD SECTOR TABLES ROUTINE SEQ Olee 
38: TST (R2)+ ;TRACK CHECK = PUT POINTER AT TRK/SEC BYTE 
MOV (Re), STMP10 GET oT 
C #174377 ,STMP1O ; 


CHEB TMP10+1,R : "eat eu Rec T 
gece SIPPUGHL a 1 BY Seite NdeI ate 


TST (R2)+ : Se ER TO MENT CM BORD 
us: Pc Fd : CTOR COUNT 

MOV (Re) +, -(SP) PUT TRK/ ON STACK 

BIC #177700,(SP) {CLEAR ALL CTOR NUMBER 
is BR or ee 160 CHECK REST OF FILE 

; MOV SThPS Re SECTORS SHEER RESTBRE 
MOV TMPS/R3 ;REGI 
TMP4’—(SP) RETURN ON STACK 


groreacegeaezensatalneinteneesenssnetnecern 
ROUTINE 
pats Oa Sie peel I nes aa 


;*IS NOT Lt LISTED THE FLAG I 


Py LISTED IN_THE 
FLAG RETURNS. IF THE SECTOR 


jp Seneddedecrsnenaseadaensnenssseinesuanansnsnnnansnennsssnnscess 
MOV SBSFACT,1$ SET TABLE TO SEARCH 

2g: JSR Ra SRHTBS SERREH 1? 

c ov (SP)+,R3 Re Bag SECTORS, IF ANY 

7S: cn 1§, #BSSOFT iFbSee eve T F ESTHER $aece aaa SEARCHED 
MOV SBSSOFT, 1S :SET aie R TABLE FOR SEARCH 

3$: Bo SEC , RECODE ' LE B aretor BIT 

4§: RESREG 

RTS Cc aoe 

6S: CMP (SP)+,R2 HTL RESTOR IN TABLE? 
Bec Oti«@RS  DECRENERT BAD SECTOR COUN 
BNE 6% :IF NOT Z RB CHEEK NEXT ENTR 
BR 7$ :ELSE GO SEARCH OTHE T 

8S: BIS SBADSEC,RECODE ;SET BAD SECTOR BIT 

93: DEC R3 Cae STACK OF OTHER BAD SECTOR 
BEQ u§ UMBER 
TST (SP)+ 
BR 9$ ant 


3 Me Um ed 
dat CALL DRIVER ROUTINE 


: ENTRY JSR PC,DR Ss L 
WITH RS POINTING TO PARAMETER BLOCK 
{ ARETURN RTS PC 


R60B.Pi1 


aaa A 


Ww 


oOo o 
WWW) 


02-DEC-77 


et ee ee 


5 oe RK& DR _ CPT PROG a 30( 1046) 


005176 


-~ 


10 


O2-DEC-77_ 11:48 PAGE 124 
CALL DRIVER ROUTINE 


; THIS ROUTINE i$ ven, ig INITIATE A ge maT OPERATION BY 
K MUST BE SET UP 


Don aa He RANG, SF, E491 dani "THE: PARAMETER 
THIS. UIE Mh CT ae SP REIR, 


j ¥STLEN 


3 THE 7 S WILL SET THE DONE 
i RR TCH KEYS REBUT INE TO BURRT T sre Bath BR! 
pAGLGASTR th beatactaneteetententaroreeeees 
JI L ;PERFORM A STALL IF QUIR D 
328 Be STP bbr > CHECK FOR Ce) on’ F INPUT 
CLRB DONE Stee 
CLRB DRNAFG > CLEAR Bette STEZED BY OTHER PORT FLAG 
JSR PC, STRCMD PREV AND C URRENT COMMANDS 
MOV RS, 4S ger aR aRar OCK ADDRESS 
JSR PCC. INIT L OR 
as: , WORD niigdpeies iP 8. AOORESS GOES HERE 
sie DONE ; la 
BEQ ;NO-L 
RTS PC : YES-RE TURN 


+ SE 96 26 HE HEH HE HE HE HE HH HE HE HE HE EE EE ARR RE REE A RRA RR RRERERREE 


 ASTRCMD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS 
TT ae 1? easaaasieeaamaaaaa, g's” aeaeaeaaaasaaaa 


&tRc VE RO- 
nie: Ri 5 AD R R OF PREV COMMAND STORAGE 
STORE PR Soe i R ADDR CURRENT COMMAND STORAGE 
MOV )+, NO RL)+ 
MOV ( ROD3) CAL D+ 
Moy = CROSS ERT DS 
MOV (RO)+, (R1)+ 
MOV (RO)+, (R1)+ 
;STORE CURRENT COMMAND 
4g: MOV #COMSTR,R1 
mov (RS)+, (R1)+ ;RS POINTS TO DRIVER PARAM BLK 
MOV (Re}3! (al )s 
MOV (R5)+; (R1)+ 
MOV (RS)+;(R1)+ 
MOV (R5)+) (R1)+ 
RESREG ; RESTORE RO-RS 
PC + RETURN 


© KERR HEGRE KERR ARERR RE EKER RE KE EKER KEK KEKREE 


aaTTL DRIVE ERROR FREE RETURN ROUTINE 
;*THIS ROUTINE IS CALLED BY THE DRIVER WHEN NO ERROR 


SEQ 0123 


CZR6QBO RKE DR CPT PROG MACY11 30‘104%6) 
O2-DEC-77 10:46 


CZR60B.P11 


6353 
6 


1$2737 
7. 


000377 
100000 


003135 
003135 


Boai3¢ 135 
bos4as 


825000 


030774 


001114 


001410 
030442 
012133 
o4s4le 
030620 

1325 


45400 
00110e 


012133 


003132 
oos4e4 


001174 


150552 


H10 


O2-DEC-77 11:48 PAGE 125 
DRIVE ERROR FREE RETURN ROUTINE 


;#HAS BEEN DETECTED IN THE OPERATION. THE ROUTINE SETS THE 
;#DONE FLAG THAT IS TESTED IN THE DRIVER CALLING 


PROUT caeananneaneneneseannneneneneneenseecanegereanananeceaes 
;SET THE DONE FLAG 


SEG 0124 


setae Bie “OER RECODE ;TEST IF ANY 
bg sen ‘ TES Ho ERROR EPR ery PRINT TEST 
CLRB ERRCNT ig LEAR ERROR C 
2s: oora baacnt K IF ANY ERRORS HAVE OCCURRED 
BEG i$ :NO - SKIP TO EXIT 
Rove SRST, srecs T RETRY COUNT 
E ROR 101 - INT RETRY SUCCESSFUL MESSAGE 
1s: ctr Rec fe] APES vERY PL acs 


S 
Mera rere ee 


Sarr YPE ERROR ROUT 
TR JSR 
j #RETURN - RTS 


PC, TYPERR 
PC’ 


aT ROUT Ss “ITEM Cet RO VTE SS rem TO DETERS TNE WHICH 
HeRASR #8 10 ee REPORTED. FT F “ERROR TABLE” (SERRTB) 
BGNTRY 19,0 DEFINE WHAT INFORMATION IS TO "BE REPORTED CONCERNING 

TO RENE HEHEHE HEHEHE HHH HAHA HHEHEHHAHEHHAEHEHEEE 


+/PERR: SAVREG 


N Vv ; INCR_ERR T FOR THIS DRIVE 
9S: ety SHIS, OSUR HIN tet PR RoR TYPEOUTS? 
6S: ate RBS ;CLR RO FOR ERROR NUMBER 
cLR RS !INIT INDENT INDICATOR 
Rove S2TENB, RO ;ENTER ERROR NUMBER 
DEC RO ‘FORM INDEX FOR ERROR TABLE 
Ast Fo 
1S: ADD #SERRTB,RO ;FORM RODRESS OF ERROR ENTRY 
MOV (RO)+,2$ :GET EM POINTER 
BEG. a :BRANCH IF THERE ISN’T ONE 
TYPE *ASeSP2 
ae TYPE : LE boERRE Obe8 Hens (EM) 
35: MOV (RO) +, 4S 
BEG , a ich a THERE FEN T ONE 
TYPE CRG TYPE ” TEST ” 
MOV $TSTNM, -(SP) GET TEST NO. ON STACK 
TYPOS ;TY PE IT 
BYT 2 t2 DIGITS 
;Byre Baas ;SUPPRESS LEADING ZEROS 





O02-DEC-77 1 







010000 

001133 
1o4401 Gorse 
1 1 726 
1 1325 
12701 O06 
1le70e 001236 

1044 

i 012147 

e 
401 001325 
401 dehe 
401 1005S 
Raat 001325 
age 012147 


4 
Wor 012147 


—OR— OR Re eee 
§ 


012133 


he 
S 
3 


001325 
010000 


is 
¥ 
L 
\=] 
~~ 


2 


012147 


012147 


0013e5 


030754 


030732 


0013eS 


CZR6QB0 RK6 DR CPT PROG MACY11 30( 1046) 
CZR60B.P11 0:46 


150434 


150302 


O02-DEC-77 


11:48 PAGE 126 


TYPE ERROR ROUTINE 


30S: 


4S: 


S$: 


10$: 


11S: 


12S: 


14S: 
15S: 


#BIT12,aSWR 
20s 


be 
#SREG26 , RE 
(Re)+,-tSP) 


SPACE2 
tRe)+,-(SP) 
SPACE2 
tRe),-(SP) 
, CRELF 


0 
SCRLF 
#81. 12,aSWR 


s 
(RO)+, 16% 
(RO) 

34$ 

, SCRLF 


SEQ Cles 


;REPORT DESCRIPTION ONLY ? 
: TYPE “PREVIOUS COMMAND :“ 
; TYPE PREV COMMAND HEADER 
;S1X COMMAND VALUES 
; STARTING ADDR OF PREV CMND VALUES 
;PUT_A WORD ON STACK 
;TYPE IT 
TYPE SEPARATORS 
iSEE IF 7 VALUES TYPED YET 
!BR IF NOT 
; INDENT 
! TYPE HOR FOR BA DATA 
; INDENT 
, TYPE PREV. HI BA BITS 


; TYPE PREV. LO BA BITS 


TYPE DATA HEADER 
DH POINTER GOES HERE 


Et NOENT INDICATOR 
SCRIPTION ONLY ? 
YES 
PO 
F 


+ We 


Le 2 


INTER 
iMene ARE NONE 
’ 


INT. 
T NUMBER OF DATA WORDS 
oP FORMA WORD 


S 
PA R 
ak ANY pare ee THIS HEADER 


Sneaiee 
= 


mom 
mw 


I 
: IF NOT 
: ENT 
Fp FigsT DATA WORD ON STACK 
NOR Neal ly WORDS 
; TYPE SEPARATORS 
cee IF <CR>,<LF> NEEDED 

F NOT 


‘TYPE IT 
‘MORE _DH’S? 
; NO-BRANCH 
NEXT DH POINTER 
:SEE IF ANY DATA ‘FOR HDR 


ES 
:SKIP EXTRA LINE 


= —OWMNZ—~ 
< 5” 

a) 

m 


J10 


CZR&QBO RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 127 SEQ 0126 
CZR6Q8.P11 02-DEC-77 10:46 TYPE ERROR ROUTINE 
ai cLR RS. ;RE-INIT INDENT INDICATOR 
105 34S: COM RS ;COMPLEMENT INDENT INDICATOR 
368 :BR_IF_NO INDENT REQUIRED 
012147 ABE , SPACE2 : INDENT 
36S: TYPE : TYPE DH 
16S: .WORD 0 :DH POINTER GOES HERE 
001325 TYPE SCRLF 
TSTB tRO) ;TYPE_A DT? 
1 + YES-BRANCH 
oo0002 ADD #2, RO : INCREMENT DF POINTER 


14$ :SEE IF END OF DF BLOCK 





BR 
20s: RESREG 
RTS 


Cc 
5g SE HEHE HE JE EE 0 9 9 JE 9 HH a 
SBT _CONTROLLER ERROR pergeren ROUTINE 





; #ENT’ JSR PC, CONE 
janet OR: RTS PC 
j #THIS ROUTINE DECODES THE CONTROLLER ERROR WORD AND 
#RE IATE MES HE RK611 REGISTERS ARE 
ARE TRIEVED ROM THE RK611 apLACED IN THE PARAMETER 
s aL OGK KotH THIS IS DONE BECAUSE PARM O MAY NOT BE VALID 
33 i ane ae 
4 031000 104407 AANERR: SAVREG 
p41 o31805 152737 900377 003132 e138 #377, DONE apone F 
pues ipa A88533 p93 64 SR ER FOPROC  Tigabae RK REGS ERROR COUN REGS 
6494 1 032737 000001 003062 BIT apito, E.CONT ;ERROR O 
6495 1 001402 BEQ ;NO- RERANCH 
B96 i 104064 ERROR es ?CLEAR CONT DID NOT CLEAR ERROR 
439 831836 32737 oooo02 o03062 1S: BIT #BI1T1,E£.CONT ;ERROR 1? 
6499 031042 1402 BEQ 2s :NO-BRANCH 
6500 31044 RROR :NO ATTENTION IN ATTENTION SUM REG 
65 931050 0367 000004 003062 2s: BIT sB1T2,£.CONT ;ERROR 2? 
6 031 1407 BEQ NO-BRANCH 
b504 31060 O87 402 003141 rSt8 ORNAFG SEE IF DRIVE WAS SIEZED BY OTHER PORT 
Pepe 031066 1 003142 INCB REISSU BR, T FL "70 RE-ISSUE COMMAND 
6507 o31874 1 O66 1SS: ERROR bb :;UNSOLICITED ATTENTION 
p208 B3} 76 os? 000010 003062 3s: BR, 48173, £.CONT ;ERROR 3? 
6510 031104 1402 BEQ 4g : NO-BRANCH 
esi o31it5 0b? ERROR 67 :UNEXPECTED DATA TYPE ERROR 
651 111 737 000020 003062 4S BIT #BIT4,£.CONT ;ERROR 4? 
6514 031120 001402 BEQ S$ ? NO-BRANCH 
Beis 031126 Ao4070 ERROR 70 :ATTENTION DID NOT RESET WITH CLEAR 
6517 031 1¢6 032737 OO0040 o03062 SS: BIT #B1TS,E.CONT ;ERROR 5? 
6518 O311 001402 BEQ 6S NO-BRANCH 
6519 031136 104071 ERROR 71  SUBSYS CLEAR DIDN’T CLEAR DRIVE ATTENTION 
6520 031140 oo04es BR 7$ 


CZR6QB0 RKE DR 
CZR60B.P 


= 


Be 


BOOBOORROOIROG 


el ee ee ee ee a oer oe 


rururofu 


Te hee 


Oo+tvwo 


ruru 
Ee 


NERERSS PRONDS SE SSTRTE ESE 


Rao 


BOGRGR000000 BOOB DO RDU GMO mEEsae 
O0O0O000000000 oO 


ed ed ed nd ed ed ed ed ed a ge a a gy ee 


oO 

W 

_— 

££ £f£55W) 
wu ee 

fw or 


Hit Ht 
8858 
ae 


i 
- 
io 
un 
N 


00-00 
bb Fe db OP -—— 
moor 

pitta 


PORN KKKK OO 


oO 
_ 
iat) 
N 
oO 
~ 


000400 





74 

256 

6 10 
é 0016 
B85 90006 
6520 Sonos 
e889 So00a2 
B50 00036 
0 

42 

44 

: 890036 

S20 0000Se 

Se0 000054 

S20 000056 

001236 


CPT PROG MACY11 30(1046) 
O2-DEC-77 10:46 


003062 


003062 


003062 


003062 


o00S426 


001260 


02-DEC-77 


6S: BIT 
BEG 
ERROR 
8s: BIT 
BEQ 
ERROR 
9$: BIT 
BEQ 
ERROR 
10S: BIT 
BEG 
ERROR 
11S: ERROR 
73: Sua 


K10 


11:48 PAGE 128 
CONTROLLER ERROR REPORTER ROUTINE 


#B1T8,E.CONT 
72 
#B1T9,E.CONT 
9S 

73 
#B1710,E.CONT 
10$ 


74 
#81T1S,E.CONT 
11$ 


oie 


E.CONT 


SEQ 0127 


;DATA LATE WHEN UNLOADING HEADER 
;CONTROLLER ERROR DURING ORIVER SERVICE 
;DRIVE DETECTED PARITY ERROR 


;MULTIPLE DRIVE SELECT 

; UNDEF INED ERROR 

;CLEAR CONTROLLER ERROR WORD 
;GO DO RETRY 


MP TY 
WP TIT Tit tt titititttiitittititt tlt LL EL LLLLil 


"SBTTL REPORT SUPPORT ROUTINE 
HE PARAMETER BLOCK DATA TO BE REPORTED 


;*#THIS ROUT 
; *INTO 
-#NOT BE 
REPSUP: 


MOV 
;STORE PREVIOUS 
MOV 


INE L 
THE PROPER TEMPORARY REGI 
"INCLUDE 


D IN THE REPORT, 


STERS FOR REPORTING. ALL THESE MAY 
BUT THEY ARE LOADED ANYWAY. 


;CLEAR ERROR COMMAND STORE 


graces R 
.CMND(RS),ERRCOM ;STORE COMMAND START VALUES 


#$REGO, RO 
B.CYLNURS), (RO}+ 


P; TRCK(RS), (RO)+ 
(RO)+ 
P.SECT(RS), (RO)+ 
(RO)+ 
P.WC(RS), (RO)+ 
pe ennT the) R3 

H ’ 
ci PRS 
P. G28 SREGS 
p- Coir ), (RO)+ 
P.CS2(RS)’ (RO)+ 
P.OCYL(RSS, (RO) 
P:OTS(RS), (RO)+ 
P-WCR(RS), (RO)+ 
P.BAR(RS), (RO)+ 
P_ASOF (RSS, (RO)+ 
P.DS(RS), (RO)+ 
P.ER(RS)’ (RO)+ 
P.AOO(RSS, (RO)+ 
P:BOO(RS), (RO)+ 
P.AD1(RS), (RO)+ 
B-BO1 (RS), (RO)+ 
P-ALO(RS); (RO)+ 
P:B1O(RS); (RO)+ 
P-ALL(RS); (RO)+ 
P.B11(R5)' (RO)+ 
COMMAND FOR PRIN 
#SREG26,R1 


;FOR REPORTING 


>DA 
’ 

*FOR ALL REPORTS ( 
SOP TERMINED CATER) 
;STORED ANY WAY. 


TOUT 
;AORS OF PRINT BUF AREA 


EfReos. Pi 


S04 ieee 
06 


atateiataratat aint 


004737 


031560 016504 
031564 032765 


CPT EROS MACY11 30(1046) on C-77 ob 88 PAGE 129 SEG Cles 


RK& OR 

il O2-DEC-77 10:46 SUPP ROUT INE 

14 012700 005162 MOV #PRVCMD, RO ;ADRS OF PREV CMND STORAGE 

14 1 1 MOVB (RO) +, (R1)+ ‘DRIVE NO. 

14 1 1 CLRB (R 

14 1 1 MOV (Ri 3, (RLD+ ; COMMAND 

1 i 1 CLR (R1)+ 

144, 12021 MOV (PO) +, (RL) + ;CYL_ ADDRESS 

i444 1 1 oooo01 MOV 1(RG); (R1)+ : TRACK 

14 1 1 CL (R1)+ 

1 111021 MOVB (RO), (R1)+ ; SECTOR 

14S4 i 1 CLRB (Ri)+ 

14 16021 MOV BRO), (R1)+ ;WORD COUNT 

1 ii 0003 MOVB (RO):R3 :HI BA BITS 

1 2703 177774 BIC #177774,R3 

1472 010361 M R3, (R1)+ 

1474 it it oo00004 4(RO), (RI) ;LO BA BITS 

1500 10441 SREG 

031502 000207 TS PC 

33 a" rae eee 
;% ENTRY JSR PC, ERRHDL 
5 BRE TURN RTS PC 


iATHIS Pour OPERRT fon The RO THE DRIVER WHEN AN ERROR IS DETECTED 
OUTING DETERMINES WHICH COMMAND WAS 
UTED AND GENE THE PROPER ERROR MESS 
Meee sSaaSSUeeUSeSHSEOESTREREL CERES SESSESTONSENERT SE SAKHEREKEOE 
ERRHOL: SAVREG 


gegezz ooiae GES RAPE IRTA DR Eon cour 


CLR RECODE ie RECOVERY WORD 
000400 OOS424 ER2ENT: Bit BLEVEER, » RECODE ST rr SND LEVEL ERROR 


CHANGE 
7 MOV t TO PARAMETER BLOCK 1 
003056 Ses: MOV aRETANC A. ABNL aBRonnal GNO Rest 


035756 003054 MOV #RETNML, A. NORM ba REOR PROCESSING 
031224 JSR PC, REPSUP’ ee, th ae F 


aie b S Seal FICaEr fs 


cae’ NATURE A ARE FIRST 


Tete as TO ENet tp. 


Hite a3 1 ised PRINTOUTS’ 
he ‘CON Re MUST BE 
@NUALLY DECODED TO LOCATE THE 


0 
000034 MOV P.ER(CRS),RY 3 ¢ ROR REGISTER 
020000 000020 BIT #UPE ,P.CS2(R5) ; TEST UPE. IF UES-SET 


CZR6QB0 RK& OR CPT PROG rol 30(1046) O2-DEC-77 11:48 PAGE 130 SEG 0129 





CZR6Q8.P11 O2-DEC-77 10:4 REPORT ERROR ROUTINE 
£633 i 7@ 09 1406 BE 1s ;REPORT ERROR 
6635 re tae pease oos4e4 ie ‘ ORT , RECODE 
bea BSIBYS O3e/65 ooo0020 1S: ms M,P.CS2(RS) ;TEST NON-EXISTANT MEMORY 
a Bless ie Benen oos4e4 em H9gort ,RECODE 
bbue B31 3 A 10000 oo00020 2s: BIT #NED,P.CS2(RS) ;TEST NON-EXISTANT DRIVE 
pou igs baz 765 000400 000020 if SUEE, P.CS2(RS) ;TEST IF NED & UFE BOTH SET 
BEA ibe O8039 een RROR 3s ;NED 8 UFE BOTH SET ERROR 
48 1 i 38S: ERROR ;NED ONLY 

6643 1664 000137 033236 IMP 37S 
peel Bir 88138 000400 o00020 3S: BIT #UFE,P.CS2(RS) ;TEST UNIT FIELD ERROR 

B31 76 010000 000020 BIT WNED,P.CS2(RS) ; TEST IF UFE & NED BOTH SET 
cee 631718 OBddge ames ERROR 7s Rep AYP NED & UFE BOTH SET 
66 tk 171 39S: ERROR ;REPORT UFE ONLY 
66 0317, I 033236 IMP 375 
4 ne ae 000100 oo0014 4S: BIT SCHOTO,P.PRST(RS) ; 
eee tk 17a 32737 Ba308¢ 005424 Br ErulPEB Re cone iSho' Ttneour IN Fineour PROC? 
Bees 831582 Batong OCHO dasHes _ (oo Tes) TadP'Fb ERROR G7 
ae) ifee Ooi 3? some ERROR 5 a E MAKE FULL TIMEOUT REPORT 
bee? fee (eo 40$: ERROR & 5. im TIMEOUTS ERROR REPORT 
bb76 0037 931524 — ee al: ENO LEB ARB MaKe DND REP 

71 0320 : 10060 000014 SS: BIT #ORVSZD,P. PRST (RS) ;SEE IF OR IVE SIE IEZED By OOTHER PORT 
cers GG one Flor 09 {BRIE BIEYEO' By SHHER Pon 
020000 oOoole 65S: T #SPAR,P.CSI(RS) ;TEST D TO C PARITY ERROR 
Bs Bees ice uF 
6678 032032 732 oo4o00 oos4e4 BIS #RCLREQ, RECODE 
bea erat 40 Baa678 6S: Btr ap PAR, R4 ;TEST DRIVE DETECTED PARITY ERROR 
6682 032052 104 ERROR 7 
eee B35te3 835737 993992 oos4e4 GI #RCLREG, RECODE 
5 5 tera 000036 73S: BIT #ACLO,P.DS(RS) ;TEST AC LOW 
032074 001403 BEQ HS 


o 


6686 
bese O38108 ocia? 033236 NP 37s 


N10 






CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 131 SEQ 0130 
CZR608.P11 O02-DEC-77 10:46 REPORT ERROR ROUTINE 
6689 7es 000020 o00036 28S: BIT #SPDLSS,P.DS(RS) ;TEST SPEED LOSS 
b630 1 Q 24s 
1040 ERROR 1 
66 033236 IMP 37$ 
cea e 000 OOO0l1E 24S: BIt SCTO,P.CS1(RS) ;TEST FOR CONTROLLER TIMEOUT 
9s ERROR 27 
B696 000001 ess: BIT #ILC,R4 ;TEST ILLEGAL FUNCTION CODE 
66 BEG 10s 
RROR 1 
ef ‘ oo00c20 10S: BIT #PGE ,P..CS2(RS) ; TEST PROGRAMMING ERROR 
pres 033036 en is 
er 115: Bry SILF,R4 ;TEST ILLEGAL DRIVE FUNCTION 
ef canon 18 
4 O33538 12S: BIT atvE,RY ;TEST DRIVE TYPE ERROR 
671 ERROR 15 
671 36 IMP 375 
ert : 20 i3S: BIT OF NTE, RY ; TEST FORMAT ERROR 
71 OR 
671 i3 933236 IMP 37$ 
4h 14S: BIT #WLE,R4Y ;TEST WRITE LOCK ERROR 
71 BEQ 1S$ 
6718 RROR 7 
671 3 9338 JMP 378 
re Ke 00 15S: Bea SUNS, R4 ;TEST DRIVE UNSAFE 
7 4 ROR 
67e ooo200 o0s424 BIS ABORT , RECODE 
67 eet 33336 IMP ALLTRM 
4 570 paaabe 16S: BIT aSkT,RY ;TEST SEEK INCOMPLETE 
67 76 ERROR 21 
67 508 oo4000 o0s424 BIS #RCLREQ, RECODE 
67 033236 IMP 37 
4 ‘ 1 1000 17S: Be0 #COE, RY ;TEST CYLINDER OVERFLOW 
4 oo4oo00 oos4e4 BRgOR eRCLREG RECODE 
6734 0323 033236 IMP 37$ : 
6738 334 0 18S: BIT #IDAE, R4 ;TEST ILLEGAL CYLINDER 
6737 aie ERROR 23 
67 oo4ooo oos42e4 BIS #RCLREQ, RECODE 
67 392 37 033236 IMP 37$ 
er i0 36956 6S B3a5u8 000036 19S: BIT BOROT ,P.DS(RS) ;TEST DRIVE OFF TRACK 
po 45 p35398 be3953 oo4o00 oos4e4 Broo gACLREG RECODE 
6744 032376 000137 033236 IMP 37$ ‘ 


_ Ceneas-rit” oa-bee- 








fringe 30( 1046) nesont Enon a Bs PAGE 132 


20S: IT sOTE,RY 
Q b } 
I T, RECODE 
IT T,P.CS2(RS) 
gobs 
22s " be RY 
oos4e4 g 235 on RECODE 
? 7p S : 
aati oos4#e4 sos: IT een 
27S: ty 
IMP 7¢ 
26S: i 9 XH 


4 


oe 
eeriet 
SARA 


is 1B STTYP 
Q 4§ 
ge bayou 
ecg: 
oos424 5s$: Bis REQ, RECODE 
oes: POOR 34 
MP NT 
29S: BIT 5 »R4 
o0s424 BIS VRC R, RECODE 
Q 
IMP 
o0S424 30S: BIT a EVER, RECODE 
SiS: ss a 3 ; 
318: FR PT ROHDO” 
oos424 BIT ppp 
MOV R2 
oo0000 BIC #IE, RKCS1(R2) 
001202 MOV RKDB(R2),$REGIO ; 





SEQ 0131 


;TEST DRIVE TIMING ERROR 


; TEST DATA LATE 


;TEST IF OPI ERROR 
;TEST IF FIRST ERROR 

;NO - SKIP T 

: TEST if A SECOND VEL 2 ERROR 
;HAS ALREADY SeCURRED 


ERROR *retoeR 
OF rita 


;TEST IF ERROR DURING STORAGE 
EJF READING WITH OFFSET 
ef ERROR COUNT 


Hee OP] REpORT REQUEST BIT 


; “s LEVEL REPORT 


ERROR 
i Yee - IF REPORT ERROR 


; Teer TP A elo. 2ND SE NEE FRO HAS ALREADY 
5 lL REPEL HERE 
TP yclech i oA" BEronr 
1 Ries 1 BASE ES 


iCLEAR PNTERRUPT ENABLE 
;STORE OFF HEADER 


SS ND 









CZR6QB0 RK& DR CPT PROG MACY11 30(1046) 02-DEC-77 11: PAGE 133 SEQ 0132 
CZR6Q8.P11  Oe-DEC-77 10:46 REPORT ERROR ROUTINE 
: gn a a 
3 Guz coco onoood Bigg MESHCREY Th STeI". AS BARES ASA ROBB 
6806 033236 IMP 
pate se 228: GABOR Bens OBPRLSEIFPSHNPCEEBROR AGRE 
6809 23S: BIT ae ;TEST FOR BAD SECTOR ERROR 
eel? oococ2 oos424 Bye BR RECODE t E R FLAG 
pB13 boage? Hove P Bros (Ro) Ri tBET Fkkck ho. 
as i BIC gi Reha ae eon ine EXCEPT TRACK 
2- $ 
pele ere ele ai? 7750.8 Figs fa ie “Exceer Pisteo 
1 1000 oos42e4 IT C,RECODE ; 
e813 ; ERROR OR PORT 
003143 org. STTYP eg +l Attn OF FSE 
bess 003135 ERRCNT ; E 
eS 56S: ERROR ios acer : 
oos424 BIC AESERR, RECODE : a 
33S: Bo K,R4 ‘on te DATA CHECK 
pass oos424 Q KERR,RECODE ;SET DATA CHECK ERROR IN RECOVERY CODE 
6830 Bre #ECH,R4 tt 7 o4 ECC eFaBC 
fe oos424 #E , RECODE h 
R G1 er T ae i 
6835 001206 34S: eR ry aSkeGi2 1 fn'Ret é Tht 
£839 35S: sre onl ; 5 i FIRST ERROR 
JSR 80. Ge PACK ADDRESS OF ERROR 
E53 misses RYE-Ervniess reai? spec PessviOw 
pate 000020 36S: -_ We, P.CS2(RS) , TEST oe CHECK ERROR 
424 BI TE 
o re ea Pe 
6649 13k ie GTPKAD BS act ADDRESS OF ERROR 
base 000014 37S: BIT BORVHRD, P. PRST(RS) ; TEST HARD ERROR 
6855 o0s424 Bree SABORT, RECODE 


- ST 


Dll 


CZR6QB0 RK& DOR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 134 SEQ 0133 
CZ2R608.P11  O2-DEC-77 10:46 REPORT ERROR ROUTINE 
? S 000040 000014 43S: BIT BORVOSC,P.PRST(RS) ; TEST STATUS CHANGE NOT CLEARED 
fe8— Oaace4 OBI Beau ' 
685 RROR 37 
o00200 o0s4e4 1S BABORT , RECODE 
033276 032765 OO04000 000014 44S: BIT BNOOSC,P.PRST(RS) ;IFST ATTENTION BUT NO FAULT OR DSC 

6863 001404 cQ 

bBes g00200 o0s424 1S Bont, RECODE 

6867 033316 032765 O00010 O00014 46S: BIT SUEXATT,P.PRST(RS) ;TEST UNEXPECTED ATTENTION 


1 
Ipagte ooo200 oos4e4 is #ABORT , RECODE 


;ALL ERRORS MUST EXIT THROUGH THIS POINT 


Bass 
G33532 815795 B268¢— cosose MY" HOV SOCKHOC A. ABNL ee Pectotes Gite oe ee 
fe i Tse TStTYP YBEAOING WITH OFFSETS 


6 Vv # »A. r} T FOR RETRY 
B30372 SO30e eos: Hoy ERRERE Be a one, ea 
BNE Yas ple Is nome ches NOT 
Bo ae08 000012 Bry ps y AKOS(R2) Ger 
Bice BNE : ipec Taare WI Quin REO BLT IS ger 


ooo200 o0s4#24 BIS BE oa, nacoo 
7$: T F TE IS REQUIRED 
oos4#e4 47$ Br AEA, RECODE it Fa RETRY cer ub A+ 


thm mee wm 
aor zon— 


eRneees 





cBae 


724 V PARM1 * SAVE 
eves Booni? 805051 ve SRERAC P,crocrs} ;aLock TO BO IT. 
3b M Ov ar ANCL. A. ABNL 
7 4 Vv 1 T 
igre poevey goeeuo RTO SFR PEEP enonce 
35 4 003143 TSTB carrve ; E iF ve ADING WITH OFFSETS 
68393 33514 2737 031504 003056 MOV #ERRHDL ,A. ABNL : store” RROR RETURN 
6 Mf 737 O00400 oos42e4 : T #LEV2ER, RECODE AN RED IN THE 
pane 14 af -— Bit $F . iRECAL BT a ae 
6902 7. 000200 OOs4e4 BIS #ABORT , RECODE ;PRINT oe RECAL ERROR MESSAGE, AND 
6303 OBO or 0 ;GO REPORT DETAILS 
6 Ol 031524 MP R2ENT 
P 0 40 104061 48S: ERROR 1 ;REPORT ABORT-RETRY FAILED 
6907 ; THE PROGRAM WILL HALT RE IF THE ABORT FLAG HAS BEEN SET OR 
pabe IF THE DRIVE READY BIT IS RESET. 
6910 o33S4e oo000s HLTPRG: RESET ;DISABLE ALL DEVICES 
pgit 033544 000000 :HALT THE CPU 
691 033546 105037 003135 CLRB ERRCNT > CLEAR ERROR COUNT 


cenegeo RK6& OR CPT 
Pil 


PROG MACY11 


O2-DEC-77 10:46 


CZR60B. 
p12 GRIEEE 
6915 
6916 
6917 
6918 
eak2 
pat 
ea 
6 
a3 
6 

6 


COOK 
RESRHSeB RRO ONS 


012236 





30( 1046) 


oos4e4 
oos4e4 


oos4e4 
003136 


001174 
oos4e4 


000001 


177776 


003132 
00S4e4 


003132 


Ell 


s aia so ge Oy al 452 ooo 7 egal 
‘AOTTL TIME OUT PROCESSOR ROUTINE 
;*THIS ROUTINE SUPPORTS THE ERROR HANDLER BY PROCESSING TIME OUT STATUS 


saGaTHERING DUTIES. 
5 HE HE HE HE HE EH SE AE AE AE HE EH HE HE HEHE HE HE EERE EERE 


O2-DEC-77 11:48 PAGE 135 
REPORT ERROR ROUTINE —— 

RESET sRESET ALL DEVICES 

oe CMSTRT , 

] 
; THE FOLLOW WIL RMINE IF AND DATA TYPE 
HAS OCG ec ia "FoR acted IS HQT DONE HERE has: RETURNS TO | 
: THE INITIAT Y OTHER ERROR IS TO BE | 
RET TRIED HERE . IF RETRY obTin 15 U UNSUCC ESsFUL AFTER 4 ATTEMPTS, THE ABORT 
;FLAG IS 
BGNRTY: BIT s RR!HVRCER! OPIERR! DCKERR!WCERR,RECODE ;TEST IF ANY DATA ERROR 
9S: BIS SANYDER , RECODE 
a. 2s 
d TSTB NORTRY ;SEE IF eNO-RETRY™ FLAG SET 
I BBADSEC, RECODE : st IF IF SECTOR FLAG SET 

BNE es ; Se A al CALL 

Cc RRCNT, ERRLMT i BE GIN TRY FE ERROR COUNT HAS 

BNE % ne ;NOT BEEN EXCEEDE 

MOV; ERRCNT, SREGS ; COUNT 

PRNBR 1 ’ IREPORT Re Te Oh UNSUCCESSFUL 

BIS BAGORT, , RECODE 

BR HL 
1S: MOV RKBAS, Re BASE ADORE ADDRESS 

nove asuBCtR P. -crmocne) iSeT” TO CLEAR SUBSYSTEM 

MOV TR, RO :GO AND REE STABL ISH THE COMMAND 

MOV (RO)+, (AS)+ :AS IT ENTERED INTO THE 

MOV +) (RS)+ :PARAMETER BLOCK 

MOV (RO)+) (RS)+ 

MOV ( 33> baad s 

MOV (RO)+) (RS)+ 

" y (RO)+ (RB) + 

MOV #PRO, aePSW ;LOWER PRIORITY TO ALLOW INTERRUPT 

JSR PC, DAVCAL ; CALL DRIVER 
2s: CLRB ERRCNT ;CLEAR ERR COUNT 

RESREG :IF RETURN GETS HERE ERROR 

S PC ‘OCCURRED, RECOVERY hase SUCCESSFUL 

RETANL: BISB #377, DONE ;SET DONE 

BIS BLEV2ER,RECODE ;SET LEVEL TWO ERROR 
RETNML: BISB #377 , DONE ;SET DONE 

RTS PC 


Fil 





CZREQBO RK6 DR CPT PROG MACY11 30( 1046) 792-DEC- -77 11:48 PAGE 136 SEQ 0135 
CZR6Q8.P11 O2-DEC-77 10:46 TIME OUT PROCESSOR ROUTINE 
6969 033764 TOPROC: 
6970 033764 104407 SAVREG 
697 37 6 MOV RKBAS , Re 
ey Goat BBbdod ROY RRESOTAB, caus {SFoeb at GRUB RRELIS™e® STORPCE 
6974 1 10 MOV RKCS2(Re):(R1)+ ;REGISTERS 
6975 1 MOV RKDC (Re), (R1)+ 
63 1 MOV RKDA( Re), (R1)+ 
69 1 MOV RKWC (Re); (R1)+ 
69 1 MOV RKBA( Re). (R1)+ 
£3 1 Beepis roy upevasecaise 
tege 
Poet gt BbetS MOV RK RUS)’ (RL Ds 
6982 CLR RO ;THIS CODE WILL ATTEMPT TO 
6983 ; RETR EVE THE STATUS FROM THE 
6985 012705 002724 MOV #PARM1, RS *SET UP TO USE PARMI 
B36 1126768 B00141 000001 nove BRD rat P.CHND(RS) | ;D0 READ DRIVE STATUS COMMAND 
6288 a8 000100 oo0014 BIT echDTO, P. “PRST(RS) iT ES} FOR TIMEOUT 
6390 oo2000 oos4e4 BIS STWOTOS,RECODE ;SET TWO TIMEOUTS FLAG 
6991 000040 1S: ADD #P.AOO.RS ‘BUMP RS TO POINT TO DRIVE STATUS 
b33¢ 12521 MOV (RS)+, (R1)+ *MOVE ALL THE ORIVE STATUS INTO THE 
beau O13es1 — a = co lee 
6995 012521 MOV (RS)+, (R1)+ 
6996 12521 MOV (R5)+; (R1)+ 
6997 12521 MOV (RS)+; (R1)+ 
6998 12521 MOV (R5)+; (R1)+ 
5999 012521 MOV (R5)+)(R1)+ 
7001 012705 002640 MOV EG #PARMO, RS ;RESTORE PARM 0 
700. 000207 T PC 
7004 . . 
rope 
A 4 H ea. ne 
R03 0341 jjgieeeRenAace keen naan nee teenneenneeceennneneeneecneeceennees 
7011 mee 104407 SAVREG 
70le O34136 016501 oo00e6 MOV P.DTS(RS),R1 STORE TRACK AND SECTOR 
7013 034142 016500 o0S2 MOV P-B10(RS) ‘RO IGET THE CYLINDER AD 
7014 O34146 042700 160017 BIC #160017,R0 *FROM THE STA Pie. CLEAR 
role Beis Soeese fe Pon UBLPRE Hie psiae oo 2 
7812 Gavibe Sobe0p Bee ‘guar toMtate 
7019 O34162 012705 002724 MOV anna ?SET UP $8 USE P.B. 
F081 Gaui?s BIDOES ponoDe Mov. ORO Beater Rs) sANGERT Thx, SEcT FOR "READ HOR 
7022 034176 112765 000177 oo0001 MOVB noUpELR P. GRIND (RS) SET S.S. CLEAR CMND 
7023 O34204 0612737 OO0000 177776 MOV #PRO, a#PSW ; ALLOW TATERRUPTS 
7024 O34212 004737 030146 JSR PC, DAVCAL : INIT THE S.S. 


Gll 


CZREQBO AKG OR cPT PROG MACY LI 30( 1046) abgcDEC-77 11:48 Pace 137 SEQ 0136 
? p32 16 a76s 900125 000001 nove BROHEAD ,P - CHND (RS) 0 Sehr READ HEADER COMMAND 
7027 O34230 013 406 O00000 MOV HOLD: RKCS1(R2) Bo A READ HOR, WITH FMT BIT = 
o0g8 O34 S50208 000000 24S: Bit aRDY ,AKCSI (Re) ;WAIT FOR READY 
Fes) GniesG Bis7es GUSS1G SGBQGG acs. GTY — ERSTEARCSTLAES? RRP PMPRERGY TTA FHT OTT = 2 
oaa Gausee iegsee Bosisy booou? BISe FORMAT. CSINCRE yi ies Ae OG Fabel TIN USE 
7035 034300 012705 O02640 Reerec #PARMO,;RS RESTORE O ADDRESS 
RT PC 


Pee 


éSTTL GET PACK 
= REEL RARER RRR AREER  RRAARRRRRAARAERARAARAAAAAREKEKE 


001174 &tPKan: mov barge" » SREGS i CEe “REGISTERS FOR 





CLR OR STOR 
901200 MOV F-Bias S(R5).$R 7 jptone Suen CReK AND SECTOR 
001126 MOV ree ACR: 
5 T eee IF HVRC ERROR 
BNE 1F YES 
TST SREG7 OROIUST THE ADDRESS CONTAINED IN 
460 RK REGISTERS FOR THE AUTOMATIC 
BEQ 1$ : INCREMENT 
D Cc REG? 
o00016 1S: BIT #CFMT,P.CS1(RS) 
001200 nov $19. , SREG7 
001200 23: MOV #21. , SREG7 
35: TST SREG6 
7 034 ve BEQ 
oes B44 Boguos veniits Bee EG 
fet free Gece gum cous we ey pe 
7067 O34442 000207 SS: pee 
7068 
oOe0 
ata} BEC CBLINe TEE Tibtn Bly woo secroeReusTeRs, 0 ceTERNDE, 
707 ses DESIRED GV YNOER, OE EK AND SECTOR REGISTERS TO DETERMINE 
7078 *WH TCH HE EXPECTED. LOADS EXPECTED VALUES IN SREGS, 6, AND 
e078 ; Bn A |, ee oe 
7077 O34444 104407 &{DEXH: SAVRE 
7078 O34446 016537 000030 001174 MOV P.DCYL(RS),$REGS ;CONSTRUCT EXPECTED HOR 
7079 O344S4 016501 o00026 MOV P-DTS(RS),.R1 ;DESTRED CYLINDER & DESTRED_ TRACK 
7080 O34460 042701 174377 BIC #i74377,R1 ; CLEAR ate BUT TRACK BITS 


H1l 


CZR6Q@B0 RK& OR CPT PROG MACYL1 30(1046) O2-DEC-77 11:48 PAGE 138 SEG 0137 
CZR60B.P11 02-DEC-77 10:46 BUILD EXPECTED HEADER 

$08 Bauuee Boesol AR ORL VER TO ‘CONFORM TO HEADER FORMAT 

£0B3 a. — a te HE FORTE PAdER Pormar 

7 034472 016537 000026 001176 MOV P. rot hag Pt gal 

oOee Bauepe Bebi37 doi? BASRA eee CLEAR Abb BRO SECTOR TOGETHER 

7088 O34S5i2 052737 140000 001176 BIS #140000, $REG6  ;INSERT BSE BITS 

7 010000 000016 r acenT, ,P.CS1(RS) 

7091 7 001000 001176 BIS #1000, SREG6 

7038 ar : g 01174 001200 23: MOV gee ee ;COMPUTE THE HEADER VRC 

ae Bo 7 4 BBL LSE 001200 BIC SKEG7 

7095 45 701 001174 BIC SREGS.R1 

7096 050137 001200 BIS R1, SREG7 


034S6e 
sea, BBIRS§ ABsz49 ar 


Ill 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 139 SEQ 0138 
CZR6QB.P11 O2-DEC-77 10:46 RK611/RKO6-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10) 
7100 .SBTTL RK611/RKO6-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10) 
7102 ;*COPYRIGHT (C) 1975, 1976, 1977 
7103 S#DIGITAL EQUIPMENT CORP. 
7104 : #MAY , MA. 4 
2108 :#AUTHOR: ROY SPITZER 
3107 .SBTTL #WATCH-DOG TIMER 
2102 | taactaaaa tac atest, eisai etinin, wma 
7111 :% THE WATCH- TIMER DOES A PSEUDO-TIMING OF RKOB=RKO7 UNIBUS 
7112 1 SUBSYSTEM COMMAND. SINCE ONE CAN NO TEE THAT A 
7113 1% REAL-TIME CLOCK (KW11-P OR KW11-L) IS ON THE SYSTEM 
7114 1 THE RKO&-RKO7 IVER WILL USE THE LOCATION W.MTIM FOR 
7115 1 MILLI-SEC TIMING. WHEN W.MTIM REACHES ZERO 
7116 1 i TCH ONO MER WILL SCAN THE ORI Syn USE AS 
7117 1 DETERM BY THE LOCATION W.TIME. TIMER COUNTS 
7118 1 (ONE FOR EACH ORI ) ARE KEPT IN THE T W.ORV. 
7119 1 IF ANY COUNT IN TABLE W.ORV REACHES ZERO A COMMAND 
7120 * TIME-OUT WILL BE DESIGNATED IN THE PROGRAM DEVICE STATUS 
giel i REGISTER OF THAT DRIVE’S PARAMETER BLOCK. 
51S3 i OF MTL YSECOMDS FOR ANT UNLOAD OR START CP INDOLE HORREND 
7125 7 HE ORIVER WILL THE VOCATION W.SEC AS THE TIME : 
Ziee i LIMIT FOR ALL OTHER COMMANDS. 
7128 3% FOR QUEUED OPERATIONS THE WATCH-DOG TIMER WILL 
7129 7 WATCH UP Po 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL 
2130 i OPERATIONS ONLY ONE OPERATION WILL BE WATCHED. 
7132 :*xCALL JSR PC,W.WTCH 
7133 i RETURN . IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT 
7135 1 i OTHERWISE AN ABNORMAL RETURN TO THE ROUTINE ADORESS 
7136 1% BY LOCATION A.ABNL WILL OCCUR AND THE CMDTO FLAG 
7137 * IN THE PROGRAM DEVICE STATUS REGISTER OF THE 
7138 i APPROPRIATE PARAMETER BLOCK WILL BE SET. 
eter : ; KKKKKAKKAKAARAKAAASRARAAASASREAEARRARARERAARARAARERERAARAAAHRRRKRAEERHH 
7142 034572 O10546 W.WTCH: MOV RS, -(SP) ;SAVE RS ON THE STACK 
7143 034574 0O10446 MOV R4;-(SP) : R4 ON THE STACK 
7144 034576 O10346 MOV ’-(5P :SA R3 THE STACK 
7145 O34600 010246 MOV Re, - (SP) ; STACK 
7146 034 13746 177776 MOV PS’-(SP) :SAVE PROGRAM STATUS WORD ON STACK 
7147 O03 003066 DEC W.ATIM : MENT MILLISECOND TIMER 
714g 034612 001034 BNE 20S iz NOT ZERO RETURN 
7149 034614 013737 003070 003066 MOV W.MILI,W.MTIM ;REINITIALIZE MILLISECOND TIMER 
7150 O3462e2 105737 003110 TSTB W. TIME :CHECK IF DRIVE IS BEING TIMED 
7151 O Hoes oor BEQ 20S ?NO, RET 
7152 O346 137 003052 177776 MOV RKPRI,PS *LOCK OUT RKO&-RKO7_ INTERRUPTS 
7153 034636 013702 Oo03046 MOV RKBAS; R2 :LOAD BASE OF RKO6-RKO7 REGISTERS 
7154 O34642 005337 003124 DEC W. ORV :DECREMENT COMMAND TIMER 
7155 O34646 O01016 BNE 20$ :RETURN IF NO TIME OUT 


Jll 


yes i" DR_CPT PROG MACY11 30(104%6) O2-DEC-77 11:48 PAGE 140 SEG 0139 
CZR6QB .P O2-DEC-77 10:46 *#WATCH-DOG TIMER 

7156 O346S0 105037 003110 CLRB W. TIME ;RESET TIMING INDICATOR 

at 4 0346S4 013705 003122 MOV PBLKT,RS ; LOAD ADDRESS OF PARAMETER BLOCK 

7158 TABLE FOR INDEXING 

7189 O034660 O0S2765 000100 O00014 BIS SCMOTO,P. PRST(RSS ;SET COMMAND TIME OUT 

7160 034666 020537 003064 CMP RS,0.WAIT ;CHECK IF DRIVER IS WAITING FOR 

7161 3 COMPLETION 

716e 034672 001002 BNE S$ ;NO DO NOT ALTER WAITING FOR 

7163 COMPLETION 

7164 034674 GOS037 003064 CLR O.WAIT ;CLEAR WAIT FOR COMMAND COMPLETION 

7165 4700 ose ae 0401S4 S$: JSR PC,R.ABNL ;BRANCH TO ERROR ROUTINE 

tier Orig Olsede eas: fay Caps IRESTORE RE" 

’ ’ 

7168 471 bi 5603 MOV (SP)+,R3 ; RESTOR R3 

7169 034714 012604 MOV (SP)+,R4 ;RESTORE RY 

7170 034716 012605 MOV (SP)+,RS s RESTORE RS 

7171 034720 000207 RTS PC RETURN 


ae 
ae 
8 
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K&6 DR _CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 141 SE@ 0140 
1 Oe-DEC-77 10:46 #RKO& INTERRUPT SERVICE ROUTINE 


-SBTTL #RKO& INTERRUPT SERVICE ROUTINE 
"aaa mannan ene: 
THIS ROUTINE WILL SERVICE ALL RKOG INTERRUPTS. 


UPON RECEIVING AN INTERRUPT, THIS ROUTINE WILL 
PERFORM ONE OF THE FOLLOWING SERVICES: 


0 
-P 


—-ZD 


SERVIC Velie 5 De BY OTHER PORT 
DRIVER 7 alla COMPLETION 


1.) 

2:) SE fA 

3.) SERV PostTi OStTIONTNG OWPLETE 

4°) REQ VE WAS ORELEASED 

S.) IF NO ate Is BN OP OU TAED. “THE COMMAND WILL BE ISSUED 
FOR T UEUED RKO& DRIVER. 


PEE LINKS ARE PROVIDED TO THE DRIVING PROGRAM. 


mia 


A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND) 
A.ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND) 
A. CONT SS OF CONTROL ERROR RETURN 

N 


AND ABNORMAL RETURNS, THE ADDRESS OF THE APPROPRIATE 
TER BLOCK WILL IN RS. 


FOR THE CONTROLLER ERROR RETURN THE LOCATION E.CONT CONTAINS 
THE REASON FOR THE CONTROLLER ERROR 


ROUTINES URED: 


OROROROIIOROROROIC IRC ION ROROIRORORO ICICI ICICI NC IC ICCC MC IC IC Me ake akc aR a8 


aia ee tet hh 1h Lh th i i i tt Lk tk i te tk te Lk 


g RRR EAA A EERE REE R EERE AKER REE AER ERE LEE LER ERE LE 


O10S46 r.INTA: MOV RS,-(SP) ;STORE RS ON THE STACK 
034724 O10446 MOV RY, ~ (SP) i STORE A ON te STACK 


3702 003046 MOV RKBAS 
6237 000010 003012 MOV RKcSet 
03273 001000 003012 BIT #MOS,T 
052737 100000 003062 BIS #E.MDS,E.CONT ;SET 
004737 o40200 ISR .CONT : REP 


T.cCSe ;$ 
; MULTIPLE DRIVE SELECT 

NUE PROCESSING 

an DRIVE SELECT 


60 
034766 0 


Lil 


CZR6 RK& OR CPT P macys1 30( 1046) -DEC-77 11:48 PAGE 142 SEQ 0141 
esRe geo Rt os pec ee? iG ORK INTERRUPT SERVICE ROUTINE 
7228 034772 000137 037152 IMP 1. RTRN ; RETURN 
7230 105737 003104 1S: TSTB 1. ISRL ; CHECK whey INTERRUPT OR RELEASE 
753 GO1410 BEQ BS oS of [gRee Eo AVAILABLE 
7 1p0493 003104 Eke 1. ISRL Ki dep 
7538 035012 000473 BR 1.160 ont i INUE PROCESSING INTERRUPT 
7 3 035014 105037 003104 SS: CLRB 1. ISRL cre FLAG 
g 36 35020 137 036134 IMP I. ATTN :GO PROCESS ORIVE ATTENTIONS 
7239 035024 032737 O10400 o03012 6&S: BIT #NED!UFE,T.CS2 Cin Pag NON-EXISTENT DRIVE OR 
724 413 BEQ 7$ jNO, BIT FOR BUBL ACC INTERRUPT 
3545 832036 B13708 003012 MOV T.C eL NUMBER 
oeuy Ose044 DIS7De Bodie Rov Bi¢<OAVHSKO Ra eee bast L 
seus 38050 Bibs 003010 MOV RKCSItRE), T.CS1 ; EMPORARY cel oe oR Ste Fie REPORT 
hy 137 035344 IMP 1. ERR ioe Te 
7248 O35062 016237 000012 003030 73S: MOV RKDS(R2),T.DS ;STORE STATUS REGISTER FOR COMPARISON 
7249 035070 032737 000001 003030 BIT #DRA, T.05 CHES IF DRIVE SEIZED BY OTHER 
78 035076 001041 BNE 1.100 tNO, CONTINUE PROCESSING INTERRUPT 
7253 “CHECK IF ANY DATA TRANSFER ERROR EXISTS 
pees 035100 032737 164000 003012 BIT #DLT!WCE!UPE! NEM, T.CSe 
72 935106 901997 BNE 10$ ; INDICATE ERROR 
ree? 5110 016237 000014 003026 MOV RKER(R2),T.ER STORE ERROR REGISTER 
7259 ; CHECK FOR DATA TRANSFER ERROR TYPE ERROR 
7260 035116 032737 125700 003026 BIT #OCK! OPI! WLE! COESHVRC!BSE!ECH, T.ER 
7ebe 035124 001407 BEQ 118 ;NO, WAIT FOR RELEASE OF RKO& DRIVE 
7264 035126 052737 000010 003062 10S: BIS #E.UDAT,E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
7265 035134 004737 O40200 ISR PC.R.CONT ‘REPORT ERR 
7ebe 035140 000137 037152 IMP 1. RTRN *RESTORE REGISTERS 
726 S144 1 7 003110 11S: CLRB W. TIME ;RESET TIMING ON THIS DRIVE 
726 5iS0 bgep37 003124 CLR Wd. DRV ?CLEAR T MING COUNT FOR THIS DRIVE 
7270 035154 013705 O031e22 MOV PBLKT,RS jLOAD RS WITH PARAMETER BLOCK 
7272 035160 OS276S5 010000 000014 BIS sONEED PORT . IVE SEIZED IN THE 
7273 PR GRAN ORIVE . FaTUS REGISTER 
yore Susise onoay poate Gof Bay SAS ae ance Menon 
$8 035176 000137 037152 IMP at Looe eT BRE TOTERS 
7278 O35202 013705 003064 1.100: Mov 0.WAIT,RS it QAD PARAMETER BLOCK ADDRESS INTO RS 
7273 035206 001002 BNE 2s AND WAITING | PROCESSING 
osee 035210 000137 036134 IMP 1. ATTN ™, YES Doce altace 


7283 035214 013704 003012 es: MOV T.CS2,R4 ;STORE RKCS2 FOR DRIVE NUMBER 


SEQ 0142 


CZR6QB0 RKE OR oS he M MACY11 30(1046) 
&SReas. Pil 10:46 FRKOE. INTERRUPT SCERVICE RO ROUT INE 


7363 035220 042704 177770 BIC #tC<DRVMSK>,R4Y ;MASK OUT UNNECESSARY BITS 
7 

? oo00000 MPB P.ORVN(RS) ,RY iG CK, F — NUMBER IS EXPECTED 
7 a7 EG 3s RTS 

7 34 000164 o00001 3s: MPB #RDALHD,P. ono iC AL 

3a) eects O6i0he ie 88 CEE HE Raabe Naren 
Z i 035602 HDAL ote SPECIAL HEADER SEQUENCE 
resi 9 3064 10$: cLR 0. -WAIT ce WATT “85c"Pine” COMPLETION 
Sie Eileen 1 cs: (te ¢ ne Sra AE's 

7 4 Oi 003010 V RKC 1(R2),T.CS1 A EGISTER 1 
7 100000 003010 BIT #CERR,T.CS1- a les 

7 901 BNE TERR 

7 900016 3024 MOV oor Rep ar a5 ,8508 #EN ION SUMMARY 

: 7 lil 02S BITe ies ae VE ATTENTION SET 

7303 320 737 O40166 ISR sean YES 

g p3e354 Bo 7 037152 J ae vt AO TORE REGIST ” ee 

g 035330 oS2765 O00010 oo0014 ISS: BIS SUEXATT,P.PRST(RS) ;SET UNEXPECTED ATTENTION 

7 737 7 .ERRA: JSR P .CST :ST R STAT 

7308 § 32338 BB d4as wo in BR ' tha’? “ : i STORE BOTT BRA No post TION INFORMATION 
7311 035344 013765 003010 000016 I.ERRC: MOV r. acSi P. -CS1(RS) i GET ERROR RK 

7 1g 7 44 JSR pC I. ,UST ane STATUS 

731 1 gone I.ERR: MOV ae PT(R2) -Epat i Re ERN 

z 14 4 : 069 HOV KECPS(Re) POS me } R Cc Posi ION 

7 1 035376 71 1. RTRN 43 RETURN Ne 

7318 0354 010400 000020 BIT ieee el : CHECK F IT WAS NON-EXISTENT DRIVE OR 
7319 O354 00104 BNE S$ *YES, RE OR 

7320 03541 bo4O3? 037726 ISR RO,1.STAT :GATHER DRIVE STATUS 

7 414 027156 1. RTRN -ERR T 

3355 425 Q09037 pasees 009010 MORO ORDTiiesU CLEAR 

ris eels) Btes £Eren FRagh REN 

2 3543 1 3737 003111 003025 Bite INTMSK, T. ASOF +1 K IF ATTENTION RESET 

7a? 44 824392 000020 003062 BES =. CLAT,E.CONT ey + annie cet ORT Noe Reset 

7329 O354SO0 004737 o40200 JSR CONT + REPORT CONTROL ER ERROR 

7331 035454 000137 037152 IMP. ats ?GO RESTORE REGISTERS 

¢ O35460 032737 040000 003034 2s: BIT as. .DSC, T.MR2 ; CHECK IF DRIVE STATUS CHANGE CLEARED 
5334 B3e4 7e2 000040 000014 Bis Bavosc P. pRSTRE) niet bse BD NOT T CLEAR 

7335 476 7 001000 003036 3S: IT #S. PAR, T.MR3 “hub ichie PARIT Y ERRO 

7 407 EQ s CHE INDICAT NORMAL ERM ENATION 
7 5 737 oO02000 003062 BIS #E.DPAR,E.CONT ;SET D 

7338 035514 004737 O40200 JSR PC_R.CONT tPRDICATES CONTROLLER ERROR 

73339 035520 000137 037152 IMP 1. RTRN : RETURN 


SIE eee... ee 


Nil 


| ant 


Rk& DR CPT MACY 1 30( 1046) C-77 PAGE 1 SEQ 0143 
eSRege Pst becre? io GRKDE INTERRUPT SERVICE. ROUTINE 

7 

7. 000020 o00014 SS: IT SORVHRD,P.PRST(RS) :CHECK IF DRIVE ERROR 

zt 253 Baioi? ee 10$ ; GO Rene 

738 34 kL o20000 003034 BIT HS PIP, T.MR2 + CHECK IF ORIVE IS CYCLING DOWN 

? cue 32 G20000 000014 Bye #E.UNLD,P. PRST(RS) *SET DRIVE UNLOADING 

? 137 3 i 90°" 19 MOVB INTMSK,W.T ;SEt UP 8 SECONDS FOR DRIVE TO CYCLE uP 

734 30 3124 MOV UNBSEC’WCDRV 

2 48 566 137 is2 IMP 1.RTRN ;GO RESTORE REGISTERS 

7350 7 737 o401S4 10S: JSR ABNL ;GO REPORT ERR 

z ol p3eee Boor 39 037152 IMP oak :GO RESTORE REGISTERS 

7353 .SBTTL #READ ALL HEADERS INTERRUPT SEQUENCE 

7385 035602 016237 O00000 003010 I.HDAL: MOV RKCS1(R2),T.CS1 ;STORE CS1 TO CHECK CONTROLLER 

? 1 737 100000 003010 BIT #CERR,T.CS1 ‘CHECK IF CONTROLLER ERROR 

7358 Beet 5394 2 BEQ S$ NO, CK FOR ATTENTION 

7 903064 CLR O.WAIT ; CLEAR WAITING of OR COMMAND COMPLETE 

7 110 CLRB W.TIME i RE TIMING ON 

7 7 gies CLR W. DRV iC Be T T COUNT 

ooey -OaeEue BOSS poreny Code mee pee ae eot CRS) 32t Oot ER REGISTERS 

53ee “6 7170 JSR RO’ T.COLR ieLe EOnTROLLER 

Fay BEER BIE ouoisy Je" pci com —_TROYCaTE Eon peru 

2 8 1 po te3 IMP 1. RTRN ee TRE RE ERS 

7370 4 016237 000016 003024 SS: MOV RKASOF (R2) T.ASOF ;ST -Art TION SUMMARY 

737 035672 3737 003111 003025 BITB INTMSK, T. ASOF +1 oH CK DaLv ATTENTION IS SET 

737, 141 Q ag EK I AD ALL HEADERS 

737 7 D03064 CLR O.WAIT Pe WAITING COMMAND COMPLETION 

7374 7 003110 CLR W.TIME >RESET TIMING ON DRIVE 

7375 71 0031 CLR W- DRY *CLEAR_T COUNT 

z 26 71 1 35336 IMP 1.ERRA :GO REPORT E! 

7 13701 j 7$: MOV HDR.AD,R1 sGET MAIN MEMORY opODBESS 

$358 Oibzel poadoa MOV RKB RE) + GET F aT D OF HEADER 

7380 162) : goo0e4 MOV RKDB ¢ d, { + GET EC WORD OF HEADER 


: roe Nee HEADER 
S2 ;5T RE c CHECK FOR DATA LATE 


Soeees 


7 
7 
5 
7382 74 31 MOV R1 HOR. 
7 03012 MOV RkCSe (Re) 
7 754 1 3012 BIT #DLT,T.CSe : TA LATE 
7 7 BNE 35 YES RE 
i deen a ae ee ah er ROR 
pase feerre iatey anaes ch friar SLE Pa Py es stg gerreTT™ 
73 105037 003110 CLRB Wd. TIME *CLEAR WATCH DOG 
338 g T1387 900001 Bo30i0 av, SRA MATR CRED SL OER teat MANGE REGISTER "FOR”SECToR count 
7393 Pose basa 7 037252 JSR RO, 1. Fe8u" 'GET SECTOR COUNT 
7394 036026 037152 I. RTRN :ERROR RET 
73 360. 013765 003036 oo0056 MOV T.MR3,P.B11(RS) ;LOAD SECTOR COUNT 


PP IPILI LILI LILILL IIL L 


C 
Cc 


NNNN 


ey 


Oe 


WONT CWO 


REO Ow 


74 


"Pil, OS-DEC“7? 10:46. 


O3c0Ne 


= 


0 
6 1 


Boois? Gavise 


BS BRE 


032737 125700 
001407 


Sie O90 
2 


2 5 003124 
1 003122 


042765 000006 
000137 035344 
032737 040000 

795 037152 


6237 OO00016 
s S 


1 
05737 00302 


30( 1046) Oe-DEC=77 hice. rece sa erence SEQ 0144 


o 
SEEDHS 


003062 
003010 
003010 


003012 
003026 


003026 


003062 


000014 
003010 


003024 


35S: 


- SBTTL 


I. ATTN: 


1S: 


2s: 


SS: 


6$: 


$8 vRO™ ——_RSTERT g0nygemnerzn 
o 

HANA Rr 

. » 

Bice a Sat erm 3B esi ¢ Via i? +2 eeckBt FORMAT AND 

MOvB 

Roy ae girly ae yHEROER 

BIS —«-WE.DLT.E.CONT SET DATA LATE WHILE UNLOADING HEADER 

IRE Pe yRsgont IBEDORT ERROR. 

KORIVE ATTENTION SCANNER 

Nov RKCS1(R2),T.CS1 ;STORE ¢ ATUS 

BI ERR,T.CS1 jowete TFC 1 60R €5 oneal OCCURRED 

BE gg ECKHECK fF ATTENTI 


T 
Q 
:CHECK IF ANY DATA TRANSFER Ty TYPE ERROR EXISTS 
BIT #OLT!WCE!UPE! NEM, T.CS2 


ROV RRER(R2), T.ER TORE AERROR RE REGISTER 


CHECK FOR DATA TRANSFER ERROR TYPE 
BIT K!OPI!WLE!COE!HVRC!BSE!ECH,T.ER 


BEQ 2s ;NO DATA TRANSFER ERROR 
BIS ae. UORT E. CONT ; ia DATA TYPE ERROR 
ISR PCR. CON : TE 
IMP 1. RTRN RE ISTERS 
MOV T.cS2,R4 FOR REGISTER NUMBER 
cia meine Stele Or uN Fin TIMER 
y 72 
HEPSET TURER VORUE ncn aconess IN As 


Us AEG! 4 © ehh cates FOR DATA TRANSFER 
P. VBRSTe tray 


W. 
MOV PBLKT,RS 
CLEAR DRIVE POSTTIONT NG 
aN ot MORE AKG oy Tue 
BI !ORVPOT, 


IMP 1. ERRC ;GO REPORT ERROR 
BIT #01,7.CS1 ;CHECK_IF ANY DRIVE ATTENTION 
rs . RTRN Te Stone’s REcisitrs 

MOV RKASOF (R2), T.ASOF ;STORE ATTENTION SUMMARY 
TSTB Ss: T. ASOF + ;CHECK IF ANY ATTENTIONS SET 


SSS st 


RKG& OR CPT 


CZR6Q80 
CZR608.P1i1 Oe 





era 


222777? 
SRRRRTS = 


7475 


2 
a 
ze 


Z 
fs 
g 


8 Benches Ree 


-DEC-77 10:46 
001007 


B3a53s BRbBBG SPsDee 


000137 9037152 


is 
. 


F500 G3ee8e 885722 oooow coo014 


00563 


MACY11 30( 1046) 


le 


eninge SCANNER © oe 
BNE ;YES GO PROCESS INTERRUPT 
913 a oat .§- . CONT get eSoft" ENIJQN IN ATTENTION SUMMARY 
IMP 1. ATRN :GO RESTORE REGISTERS 
7S: BITB —INTMSK,T.ASOF#+1 ;CHECK IF DESIRED INTERRUPT 
BE Bergeon getting Brew 
IMP 1. RTRN 3GO RESTORE REGISTERS 
gS: PeLKT OCK TABLE 
ae SOC DER orn r Seas eae VE UNLOADING 
IMP I. UNLD i ee avice BRIVE IN POSITION AFTER ERROR 
11S: BIC #ORVPOS .P. PRSTCRS) jRESET IVE POSITIONING 
CLR RKMR1(R2) pee REGISTER 1 
ise “ Ron in Tsu" WITH ATTENTION HIGH 
GY TeTBeTPPRBSERR) nie Pa Ge Eapey"eSS 8 
BEG 128 BRIVE™ Status CHANGE 
12S: nov T. me, ADORED STORE a REGISTER 2 2 
i T SiMe eho 
I »P. PRST (RSS ave oI CHANGE 
gR 1.AERR’ 
_ IS Roi issu ERR BETVE p30 STATUS CHANGE 
MOV T.ASOF,P.ASOF (RS Rs} bas TON SUMMAR 
ITB INTMSK,P.ASOF41( A hae ress 
Beg ; T PROCESSING 
-CLAT,E.CONT ; at 
’ 
IRE TOR TRN agent hi! GISTERS 
SS: PY LeMBRe a SRBSERE, SLE OP DRIES ATGE Ga 
Bis sbevosc, P. pasTinéye Sac SHWE HE statue HA HANGE DTD No CLEAR 
ws: gee FEL Dave, 8 on 
gsr PévF NOR i REPORT. SUCCESSEUL COMMAND COMPLETETION 


RK6 OR CPT 


PROG MACY11 


CZR6QB0 
CZR6QB.P11 02-DEC-77 10:46 


au 2 


Pe ee 
WMONTULCGTU 





Bone MSC Ct 


g 
: 


aaa 

Sea 
88 
z 


aa 
bo 


aiuto 
Fat te 
= 
ag 


Pa 
ne 
a 
SHIN 


1 

7S 71 
Baie 
7S 037116 

755 - 
1 B37156 
7562 037130 
7563 037136 


ce eerie! 
g ie 


- 


=“ 
WW 
NN 
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02-DEC-77 


11:48 PAGE 147 SEQ 0146 
HANDLER 


#ATTENTION ERROR 
#ATTENTION ERROR HANDLER 


- SBTTL 


000014 I.AERR: BIC 





es: 


10S: 


. SBTTL 


1.UNLD: 


15S: 


20S: 


gL RP 


aie sesessenas 


4 
2 


% 


L om 


an . 
BHnow» 
2 


o~ 


sORVPDT ,P. PRST(RS) ae UM POST TONING IN PROGRESS BECAUSE 


Ht: DAVE isREEO TAPE ba THES DRIVE 
ait ioe tg Ga els STATUS 


ss see ee 


ER, 
OF Et ; GATHER D ORIVE STATUS 
;ERROR RE 


be i Be BEPO enna 
pee 2 ee 


PC.R.CON 

1. ATRN Ss RESTORE REGISTERS 
VHRD, P. seit F DRIVE ERROR 
.PIP, T.MR2 tx IF DRIVE IS UNLOADING 


rae ur er RIVE UNLOADING DUE TO ERROR 
YBN Coe 8" nos. FOR CYCLE UP TINE 


PC,R.ABNL 
Than Ree ore” Fe as OR TERS 
CAUSING DRIVE TO UNLOAD 


BBaER.F 8 TCRS) Ro ORR IVE UN ADING BECAUSE OF ERROR 
DRIVE CLEAR 

mmenars T. sof si” gi OBHEEK TE IF ATTENTION CLEARED 

#E. E.CLATE. . CONT $3 $e DID NOT RESET 

TCRTRN ;RESTORE REGISTERS 

aS. .DSC, T.MR2 s CHECK IF IF 1pRIVE STAUS CHANGE RESET 


HDRVDSC, P. prstcréye a, $° DRI VE STAUS CHANGE DID NOT CLEAR 
W. TIME TRESET TIMING ON THIS DRIVE 


SEQ 0147 


ies 


02-DEC-7 
#ERROR C 


MACY11 30( 1046) 
10:46 


core 


Oe-DE 


CZR6QB0 RK& DR CPT 
CZR60B.P11 


Fle 


CZR6GB0 RK& DR CPT PROG MACY11 30(104%6) O2-DEC-77 11:48 PAGE 149 SEQ 0148 
C€ZR6Q8.P11 O2-DEC-77 10:46 *CONTROLLER CLEAR ROUTINE 
5 .SBTTL #CONTROLLER CLEAR ROUTINE 
ia TEA g acai amma laia ti aciniacaiataiaiia neat aanan em: 
73 1a THIS ROUTINE W TLL BE USED BY THE D THE DRIVER TO CLEAR THE CONTROLLER 
By + CLEARED, THE ROUTING BS SPECIFIED IN A.CONT WILL BE CATED WITH 
Be i E.CCL SET EN EU CONT. 
38 B i REGISTER USE 
7586 i% 
7587 + Re ADDRESS OF RKO6 REGISTERS 
7588 i RS ADDRESS OF PARAMETER BLOCK 
7530 :#CALL JSR RO,I.CCLR 
7591 $e CADRE SS Of ERROR RETURN> 
733 ye 
34 - Fy KKKAKKRAKRSRAEAARSASAAAAAAAAA RA RAAAARAAAAAARARAAARARAAARAARAAAAARRARAE 


2 WR GE ES RE SR PR ree ane 
39 


100000 003010 BIT HECK IF CONTROLLER CLEAR DID 
7 037212 001407 BEQ S$ ’ ont DRIVER PROCESSING 
7601 037214 052737 000001 003062 BIS #E. gCLA Rae . CONT in ne LER ADA DID NOT CLEAR ERROR 
cous rt 22 tt 4 040200 Ma (ROS RO con wh 
cd gid 37556 Bode00 RTS ; 
7606 037232 Ole762 000100 ooo000 SS: MOV #IE,RKCS1(Re) eo IN TERn eT ENABLE 
7607 037240 Ades Se 177777 003104 MOVB #-1,1.ISRL ;SET INTERRUPT ENABLE ISSUED 
7608 O037c4%6 S720 TST (ROS+ qe OR NORMAL RETURN 
7609 037250 000200 RTS 0 ; RETURN 


CZR6QB0 RKE DR CPT PROG ea 30( 1046) 


CZR60B.P11 


dolce coolooe 
CoCorro 
= b= be be Be be be be pe Be 
WONT U CWO 


Coron 


7620 


037252 
0 7598 


B39 76 
037 
37312 
O373c0 
03 


B37uis 
037416 


O2-DEC-77 


oO 
= 
w 
N 
= 
o 


— Ler 
NSN NUINUY 


——O HO 
a 


oO 
Oo 


BRS 
A 


ENENNW 


003010 
00301 
JU 
00301 
177783 
053018 
00 
037474 
100000 


001000 


100000 
040200 


024000 
176400 
131761 


000005 


003010 
003012 
003026 


Gle 


02-DEC-77 48 PAGE 150 SEG 0149 
*COMMAND 1ssueD BY DRIVER SERVICE ROUTINE 


-SBTTL #COMMAND ISSUED BY DRIVER SERVICE ROUTINE 
| ar pene cere pdtEN ee Hon RHC tin 
THIS our ih hee L daa en 6 won one AS grecsergD IN_T.CS1 
OCCURRED. 


i BIND | CHECK 7 9 CCURRED . IF A CONTROLLER 
is eerie aie re TOR RL ter Serta ee ORE te ED BY THE 
:% 

i* REGISTER USE 
is sone = 
3% 
$% R2 ADDDRESS OF RKO& REGISTERS 
i RS ADDRESS OF PARAMETER BLOCK 
:#CALL JSR RO, I. Iss 
i <ADDRESS OF ERROR RETURN> 
i RETURN 
i ROUTINES USED: 
3H 
i 1.CCLR 
i 1.STOR 
ts 3 RRL EKE EK RER KERR AKA RA RARE AAA AAAAKRRARAARRRRKRRARRAKRAARAAL AEE 
I.ISSU: MOV T.CS1,-(SP) ;STORE COMMAND ISSUED 
R T.cS2 :CLEAR TE ARY C 
MOVB P-ORVN(RS) T.cS2’; ofl IVE NU 
MOV T.CS2,RKCS2(Re) ;0 IVE NUMBER BR COMMAND 
MOVB P.CSIACRS) Si4i ;STORE BITS 8-15 OF CS1 
BICB ##C<B.CDT! 1B cFMT>, T’CS1+1 :CLEAR ALL BITS EXCEPT 
oRMAT AND DRIVE TYPE 
MOV T.CS1,RKCS1(R2) SHE 
1S: iste RKCSI URE) FOR READY 
ISR PC,.I.STOR REGISTE RS 
BIT aceRR, T.CS1 ite Ke FaGon ROLLER ERROR OCCUERED 
BIT #MDS,T.CS2 ie ifn MULTIPLE DRIVE SELECT 
BEQ es NO CHECK FOR OTHER CONTROLLER ERRORS 
BIS ae. MDS E.CONT icet Mm IPLE DRIVE SELECT FLAG 
JSR CONT : REPOR CONTROLLER ERROR 
BR it ae > RETURN 
;CHECK IF ANY CONTROLLER ERROR IS SET 
2s: BIT scTo! 'SPAR,T.CS1 
BIT SUFE!PGE!NEM!NED!UPE!WCE!DLT, T.CS2 
BIT BILC!DTYE! FMTE!ECH! BSE! HVRC!COE!DTE! OPI!DCK, T.ER 
CMPB #OR.CLR, (SP) ;CHECK IF CLEAR DRIVE 


CZR6QB0 RK& DR CPT PROG MACY11 30( 1046) 


CZR6QB.P11 


037422 


037472 


O2-DEC-77 10:46 


00 
Bog > 00058 000014 


011000 
000200 


000100 


001000 
040200 


000000 


003062 


02-DEC-77 PAGE 151 
*COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


S$: 


7$: 


10$: 


11 


H1le 


1:48 


poe ait? 1 <00 DO NOT SET DRIVE HARD ERROR 
ApryrRD B. mini ete A CONTMOLLER CLEAR 


TURN 
;SET iNTERRT ENABLE 


SIE, RKCS1(R2) 
opis sPotuat gr O'FOR NORMAL RETURN 
RO RET ban °° 


#E.CERR,E.CONT SEF CONTROLLER ERROR DURING 
YER RVICING 


Pc R. CONT i BE 
(SP)+ 4) TOet TACK 
(RO) , RO ADJUST RO FOR ERROR RETURN 


SEQ 0150 


Ile 


CZR6QB0 RK& OR CPT PROG MACYI1 30(104%6) O2-DEC-77 11:48 PAGE 152 SEQ 0151 
CZR6QB8.P11 O2-DEC-77 10:46 *STORE RK611 UNIBUS REGISTERS 
7oB1 .SBTTL #STORE RK611 UNIBUS REGISTERS 
eS | nated 
7685 1 i THIS SUBROUTINE IS CALLED BY THE RKO& DRIVER TO STORE ALL 
coBe i* RK611 REGISTER IN TEMPORARY LOCATIONS. 
7688 :#CALL JSR PC,1I.STOR 
7689 i RETURN 
7690 ;* 
7631 1% REGISTER USE 
7692 [$0 eee eeene one 
7633 eI 
7634 i Re ADDRESS OF RK611 REGISTERS 
cogs : $ KKKAAKAARARAKAAAARASAAARAAAAAAARA KARA AARAARALARRAARALKAAAAALARARRAAAARKAE 
76 037474 016237 OO00000 003010 I.STOR: MOV RKCS1(R2),T.CS1 ;STORE ALL CONTROLLER REGISTERS 
7699 037502 016237 000010 903012 MOV RKCS2(Re):T.CSe ; EXCEPT DATA BUFFER 
7700 037510 016237 9O0000e 3014 MOV RKWC(R2), T.WCR 
7701 037516 016237 003016 MOV RKBA(Re);T.BA 
77 016237 MOV RKDAC RE), T.DA 
77 162 MOV RKOS(Re);T.0S 
7704 Olbe 14 3026 MOV RKER(Re) T-ER 
7705 016237 MOV RKASOF (Re), T. ASOF 
7708 7554 0162 3022 MOV RKDCYL (Re): T.DC 
7707 gebe 162 003036 MOV RKMR1(R2), tT. MRI 
7708 0378 16237 9000 3034 MOV RKMRe(Re),T.MRe 
7709 037576 Ol6e 0036 003036 MOV RKMR3(Re).T.MRS 
7710 037604 016237 000030 003040 MOV RKECPS(Re},T.POS 
7711 037612 016237 000032 O03042 MOV RKECPT(Re);T.PAT 
7712 037620 O00207 RTS PC ; RETURN 


CZR6QB0 RKE DR CPT PROG mo 30(1046) O2-DEC-77 11 


CZR60B8.P11 02-DEC-77 


Jle 


:48 PAGE 153 
*#STORE CONTROLLER STATUS 


IS CALLED BY THE RKO& DRIVER AT PRIORITY 7. 


RKO& BASE ADDRESS 
ADDRESS OF PARAMETER BLOCK 


;CLEAR ALL BITS EXCEPT FUNCTION 
T ore SSUED 


3CL TION OF CS1 STATUS 
5 GENERAL CS1 sre rua, Ate Orr ior 
3ST C AND STATUS REGISTER 2 


STORE WORD COUNT REGISTER 
Eide Ble TRE ERIS ron 


IVE VE BrATUS REGISTER 
sar RROR_REGISTE 
; STORE BT TENT ron SUMMARY AND 


7713 .SBTTL #STORE CONTROLLER STATUS 
gee ; | aaa RHAAAAAARAAAARAAARAAARARAAARAAARSAAARARARAAAEE 
771 :# THIS SUBROUTI 
2718 # THE FOLLOWING REGISTERS WILL BE STORED: 
7720 $H OMMAND AND STATUS REGISTER 2 
7721 % WORD COUNT REGIST ER 
7722  % US SS REGISTER 
7723 :% DESIRED TRACK AND 
7724 ie STATUS REGISTER 
7725 :% ERROR REGISTER 
7726 1 ATTENTION SUMMARY/OFFSET REGISTER 
o7e7 i CYLINDER ADDRESS REGISTER 
7729 :*CALL JSR PC,I.CSTS 
3230 i RETURN 
373¢ i THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 
553e is REGISTER CONTENTS 
-& 
7736 Hmm ee 
7737 ;* 
7738  % Re 
5580 i‘ ” 
gous : g RRR RAR EEA REA AEA RAE E EERE REE REEREERERERER 
274 037622 042765 177741 OO0016 : ane BIC #177741,P.CS1(RS) CL 
7745 037630 042737 000036 003010 BIC -¢S1 : 
7745 O3 053265 003010 00001 BIS #38416 S1(RS) 
7747 037644 016265 000010 O000020 I.CST1: MOV Ricestres. .CS2(RS) 
7748 037652 1626' 0022 MOV WCCR2),P.WCRCRS) 
7749 037 1 4 MOV RKBACR ),B-BAR(RS) 
7750 7666 O1 0026 MOV RKDA( Re); P.DTS(RS) 
7751 037674 G1 6265 0012 000036 MOV DS(Re),P. DS(RS) ; STORE 
7752 037702 O1626 0014 9000034 MOV KER(Re) |P.ER(RS) ORE 
3753 037710 016265 000016 o00032 MOV RKACOF RED P ASOF (RS) 
7755 037716 016265 o00020 000030 MOV RKDCYL(R2),P.DCYL(RS) 
7756 037724 000207 RTS PC 


i STORE CYLINDER ADDRESS 
; RETURN 





kenegec RK6 OR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 154 SEQ 0153 


R6QB.P11 02-DEC-77 10:46 *¥GATHER DRIVE STATUS 
7758 .SBTTL #GATHER DRIVE STATUS 
geo 5  soecnegumgenummncene RKEKAKRAELAKRAAAAARAKAARARAAARAARARARAAAAAA RARE 
7762 x THIS SUBROUTINE WILL Ee USED TO GATHER DRIVE STATUS 
7763 :% BYTE Oi, 10, AND 11. IT IS ASSUMED THAT THE ORIVE 
aa S i HAS PREVIOUSLY BEEN’ SEIZED. IT RUNS AT PRIORITY 7. 
7766 :#CALL JSR RO, I.STAT 
7767 $x <ADDRESS OF ERROR RETURN> 
2768 i RETURN 
9720 i THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 
777e : 
$773 5 REGISTER CONTENTS 
7775 ; 
7776 1 R2 RKO& BASE ADDRESS 
MAE 5 RS ADDRESS OF PARAMETER BLOCK 
7779 : ROUTINES USED: 
3780 3 I. ISSU 
o7 Be 359 2 36363 9 2 0 06 36 J 2 2 J 9 9 
3784 037726 012762 000001 OO00026 I.STAT: MOV #1,RKMR1(R2) fe lee 1 
7786 037734 112737 000001 003010 MOVB #OR.SEL,T.CS1 : 
ae i a 004037 037252 JSR RO, 1. 1SSuU Loeo of ietiee ote BYTES 01 
7789 0377 01376 003034 0044 MOV T.MR2,P.AD1(RS) RROR fe AUS BYTE O1 MESS A 
7790 7756 013765 003036 0046 MOV T.MR3.P.BO1(R5) STOR TAT BYTE O1 MESS B 
373) 037764 Ol2762 o00002 000026 MOV #2, RKMRI (Re) 08D. NT NCES EGISTER 1 
7793 037772 2737 1 003010 MOVB HOR, , SEL L,T.CS1 A 
oes 9410000 40 252 JSR RO,1.1SSu" GET of Tus 8 YTES 10 
7796 Buobbe 013765 3034 o000S50 MOV T.MR2,P.ALO(RS) ar By BYTE 10 MESS A 
7797 O40014 013765 3036 o00052 MOV T.MR3.P.B1O(RS) Stone Tar YIE te MESS B 
3738 040022 O12762 000003 oc00026 MOV #3, RKMRI (Re) iL 08D MBINTEN NANCE REGISTER 
7800 040030 112737 OO 003010 MOVB #OR.SEL,T.CS1 *LOAD 
7801 0400 go4037 03 JSR RO,1.1SSu Ger vs¥ptus BYTES ll 
7803 Manette 013765 34 oo00s4 MOV T.MR2,P.ALLCRS) TORE StAtUs YTE 11 MESS A 
7804 O400S2 01376 0030336 000056 MOV T.MR3'P.B11(RE) SroR TATUS BYTE 11 MESS B 
780s 00s c026 CLR RKMR1tR2) iL 0nD MRINTENANCE REGISTER 1 
7807 ou 4 112737 000001 003010 MOVB #OR.SEL,7.CS1 ?LOAD COMMAND 
ress Bioore Bata, Sees 7, a Seo 'teton 5 
7810 O40100 013765 003034 oD0040 MOV a MRE P.AOO(RS) ? STORE it BYTE 90 MESS A 
7811 O40106 013765 003036 oD00042 MOV T.MR3.P.BO0(PE> STORE STATUS BYTE OO MESS B 
7812 040114 032737 001000 003036 BIT 1S PAR 7 iiR3 :CHECK IF BAD PARITY COE TECTED BY DRIVE 
7813 O40l22 001407 BEQ He ?NO, RETURN NORMALLY 


ne 


Lie 


6 OR CPT EROS yi ty 30( 1046) Oe eR -77_ 11:48 PAGE 155 SEQ 0154 


O02-DEC-77 10:46 GATHER DRIVE STATUS 
0124 052737 992000 003062 BIS BE -DPAR, E. CONT s unptcare ane PARITY DETECTED BY DRIVE 
oi rea 3S: MOV (ROD RO :TOab RO eRoR ERROR RETURN 
0140 000200 RTS RO : RETURN 
0142 OS2e765 O01000 o00014 Ss: B1 sPBSVAL ,P.PRST(RS) T PARAMETER BLOCK STATUS VALID 
O1 05720 : (RO>+ A JUST RO FOR NORMAL RET 
1 00200 RTS RO RETURN 


Mle 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 156 SEQ 0155 
CZR60B.P11 O2-DEC-77 10:46 *COMMON DRIVER RETURNS 


g .SBTTL #COMMON DRIVER RETURNS 


puoi 40037 903344 R.ABNL: CLRB aera aa, : INET AT HENGE HE oR” REPORTING 


78e7 040164 000207 RTS 


7828 : ; 
7880 bu8i%8 05877 rc a4 RNC: ORB T EK NORM ; JNHIBIT FUTURE, DRIVE, INTERRUPT REPORTING 
oB3e ; val PC RETURN 


Bae Hater 108037 p63 1 4 R.CONT: CLR ANTHSK pNaietT FUTUR OBE naERGUF PErOgT ING 
; 9 poa0se 9eh43 GER KORY con, FGRBSEGHETENG ROUEN PRR HTRLORENE 
7837 O40220 000207 RTS PC ; RETURN 


120 


INHIBIT BUS ADDRESS INCREMENT 


CZR6QBO RK& DR CPT PROG MACY11 30(1046) 02-DEC- -77 11:48 PAGE 157 SEQ 0156 
CZR60B.P11 O2-DEC-77 10:46 *COMMAND INITATOR 
7838 .SBTTL #*COMMAND INITATOR 
eye + aaa ceaealaal eesti anette 
seve iH gy fue Command. Fi WILL Li INITIAT ALL COMMANDS AS SPECIFIED 
4 i OMMAND FIEL ARAMETER BLOCK. THE FOLLOWING 
7844 :# ARE ALSO EXECUTED: 
oBue S 
7 qe 1% LEER cL 
7848 $x Sussyst M CL 
7849 3% AD ALL DRIVE STATUS 
7650 i READ SPECIFIED HEADER 
s85¢ i THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS 
7854 :#CALL JSR PC,C. INIT 
7855 7 <ADDRESS OF PARAMETER BLOCK> 
7856 i RETURN 
7858 ti FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE 
7859 x LOCATIONS, PSLKT AND INTMSK. 
oBet + ROUTINES USED: 
7862 $a W.WTCH 
7863 :% 4 css 
r4=| 5) $i I. 1.1AT 
ree + ea 
A. 3 er rrrtiittttiiitiiititiiitttiiititiiittttiiitiiiitiiererrer es SS 
ae o4022e 010546 C. INIT: MOV RS,-(SP) ;STORE RS ON STACK 
7870 O40e24 010446 MOV RY, -(SP) >STORE RY ON STACK 
787 O10346 R3,- (SP) ; TORE R3 ON TACK 
787 1024 MOV Re, -(SP) ST. R TACK 
7873 O04 010146 R1,-(SP) i STORE Rl ON STACK 
7874 O04 10046 MOV RO, -(SP) ;5T0 ON ST 
7 023 13746 177776 MOV PS. -(SP) ;STORE PSW ON STACK 
787 137 3052 177776 MOV RKPRI.PS ;LOCK our RKOb INTERRUPTS 
78 0250 017605 o000i16 MOV 316(SP) RS ; STORE AMETER BLOCK ADDRESS 
7878 0254 062766 O00002e on0016 ADD #2, 16(SP) ;ADJUST RETURN oe 
7879 O40 16504 MOV P. DRVN(RS) ; STOR DRIVE NUMBE: 
78 e704 17777 BIC BiCCORVHISKS , RY ; Uap PanaieteR 
7881 10537 00312 MOV RS, PBLKT : LOAD PAR TER BLOCK TABLE 
7882 040276 116437 3lie@ oo3glil MOVB T. DRV(RY), INTMSK’ ; MASK 
7883 O40304 116437 003112 003110 MOVB 1. ORV(R4Y) Wd hae? set watcHT noe. TIMER FLAG 
7eB4 040312 013737 003072 003124 MOV [SEC,W.ORV WATCH-DOG TIME 
788 040320 013702 003046 MOV RKBAS, Re = R2 WITH RKO& ADDRESS BASE 
rege ; RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT 
7890 : WRITE FOR WRITE CHECK 
7891 : NO CHECK 
7892 : DROP ORIVE FROM TEST SEQUENCE 


Efnees-Pil-  O2-DEC~77 10:46. 


040324 042765 075176 


5 


Ow 


NNNNN 


ban ae be an ae be Be Be 


NANNY 
DIDISDoD 
= OWOONO UI £ Wl O 


yy 
ro 


30(104%6) O2-DEC-77 
# COMMAND 


000014 





14 122765 117 
Bybee 103540 — 





000001 


0014 


000001 


000001 


003124 
000001 


1S: 


3S: 


7$: 





BIC 


CMPB 
BLO 


INITATOR 


PAGE 1S8 SEQ 0157 


#tC<DRVUSE !W. WCK § NOCHK ! DRPDRV! DTBAII> ,P. PRST(RS) 


mgoRt 
-I 
- SPEC CIAL COMMAND PROCESSOR 


RS,RO ; STORE T OCK_ADORESS 

a. CS1,RO eB at pee a T CLEARED 
SP’ CPaT RI CULATE L ION 76 CLEARED 
Li tsr 

RY $2(RS) 

#UNLOAD, P. CMND(RS) i CHECK IF POSITIONING COMMAND 


eae OR INTERRUPT ISSUED 
; JUMP T 
CAL TERATE 
EK 
UNLOAD 


ess 


RANSFER COMMAND 


en 
ite nary AEA 


a 
eEX,P.COODRS) 5 ea Koercet 


#6 

5 

p- SELENE)“ BBatRs? ARBREETSA'ENS SRREKSS 
ag 360 issue 


#SEEK,P.CMND(RS) ; CHECK If TA TRANSFER 
20$ vE rat 


PEPPEET P.OOS) CHECK” FOR” URL OAD 
F SCSI (RS) RiSSSe (as) SLR PGR wccrsve 
8s ;60 IS COMMAND 


#SRTSPL,P.CMND(RS) ;CHECK IF START SPINDLE 
3NO; CHECK IF RECAL 

W. MIN, W.ORV eh TCH DOG TIME FOR 1 MINUTE 

#RECAL,P.CMND(RS) -CHECK IF RECAL 

3 ;NO, CONTINUE 
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BERD BRRR 
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fa Ubi Ta 


116565 


sii 


ae 
= 


0 


$ 
RIN 


wang i 
a 


BLU SSRRRERRRL acca ccn aaa 


rae i 

7388 1 ll ees 

, O41 142 

rs 

7334 ibe ices UE 

4 4 041056 Brel ooode0 
Bipes rca OO 

read abate 042765 400 

LHS BARGES ra 


BOOS O41114 122765 000141 





SS ta rue 


1 
1 
1 
I 


000001 


02-DEC-77 
#COMMAND INITATOR 








27S: 


30S: 


. SBTTL 


ERBLEETS BBE 


1:48 PAGE 159 


CAL TIME FOR 8 SECONDS 


CieruebPiearscPPaditaR, = cy ePALE Bit SickFt ronmar 


P. tee Eph mig Pe eo8 UATE erecK 


shocri, OF INT T 

HEAP, 1(¢RS) wae E nn 
Bs cif suc 

RKESI (Re) ) \" cS ist MEF atus REGISTER 1 
—- xe ro 

PCW bet ia 

Me | ae ature . 

Be NORM H ye 

CORTRN #6 

- BAL OC RS JgTeR 

B HEC Reaettaeoetr ck meg? sur REGISTER 
P. cTAR fens SECTOR AND TRACK NUMBE NUMBER 
HWCK, P. prstirsi” oes Stee : SHOULD BE ISSUED 
iuaonta, P. es1cRsi wo Peau BRITE GORMAND 


Pp. CCS A 


P.CS BT AtRs) one ete As Pa gis es 
emt! Lb 7 Pp 
#4+C<B.C nt! B. ie. > oS1+1 Re) ig BR 4 BITS EXCEPT 


sepia? TD. ne nile hat eae INCREMENT 


S581 0,52 $2088) ASS : Inert BUS ADDRESS INCREMENT 


em HK, P PRESTR) aN ay INTERRUPT ENABLE 


#IE,P A (RS) tn NTERRUPT 
P.CS1(R5),RKCS1 t 1S 
OC RTRN shoe REGISTERS 


*#SPECIAL COMMAND PROCESSING 


C.SPEC: CMPB 


#ROSTAT,P.CMND(RS) ;CHECK IF READ ORIVE STATUS 


SEQ 0158 


D13 


CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 160 SEQ 0159 
O02-DEC-77 10:46 #SPECIAL COMMAND PROCESSING 


OF 

5§ 87245 00020 coon19 Bsa Rs) srKcse<Re)  ,L ORD 

a5 besce eaves SDBRIC CiSrUoMPTOaes CHITA ate nat EH Be BH ron 
eq gieces a §o0008 ~~ piceI CRs), Reasic lait 

3 ‘ seen eee AND STATUS REG. 1 
Beale, p. goochS)°;S1Oke sratus By fe 00 MessacE : 


RKMR3 STORE STATUS BYTE OO MESSAGE 
8 ERR, P. Bear RSS eee 


ATUS 
H. . TIME ;RE WaT es q Sunt ON THIS DRIVE 
#NOCHK,P. PRST(RSS eek 


Bs, P.CS2(RS) ean Select 


ey 


ee | 


ls{=taf=t='=f=t=t= 
bt eb 


WONWUIE Wr 


movi i 


: 





1 
1 
1 
1 ISR oy RO,I.CCLR Ege 
i Sif #NED!UFE,P.CS2(R5 NON-EXISTENT DRIVE OR UNIT FIELD ERROR 
i ate #DRA,P.DS(RS) i Che I IVE AVAILIABLE 
#ORVSZD,P. PRST(RS) I IZED BY OTHER PORT 
cs, Bee RORWSERP-Pasreney itn 18,864 
i IMP C. ar TRN + AOS TORE REGISTERS 
1 6S: ISR RO,1I.STAT IVE STATUS 
1 . C.RTRN : i RROR RET 
1 CLRB WW. TIME ; STOP WA TIMING ON DRIVE 
1 CLR ORV T WA I ; 
; BIT siOCHK, P.PRST(RSS, 56 CK MODE 
i 8s SER POOR NORM CLEAR INT NPCETE 
8046 1 : IMP C.RTRN sREDORTEC Onn C5 
4 1372 052737 100000 003062 9S: BIS #E.MOS,E.CONT  ;SET MULTIPLE DRIVE SELECT 
8049 1400 004737 O40200 ISR PCR. CONT : INDICATE CONTROLLER ERROR 
B080 1404 000137 042074 IMP C.RTR 
805¢ 1410 122765 000140 o00001 10S: CHEB WRELEAS,P.CMND(RS) ;CHECK IF RELEASE COMMAND 
B05 1348 1 9 003064 MOV aes 0.WAIT Sone Boat ETER BLOCK HeDRECe IN 
8 14 76 BIS #RLS.P.CS2(RS) {SET 
6087 14g2 réeee 809018 Boe P.CS2(RS), rkeseck 2 Bis: lie _DESELECT 
8059 i4ue ite > 50? HOVE sit. ISR P.C ik (RS);ST rts Bis ’o 
8060 Odi gee b4S5e2 080995 pooote BIC #iC<CEMTICOT>, if mi jecera ALL care OE XEEPT FORMAT 


CZR6QB0 RK& DR oS he rity 30( 1046) -DEC-77 11:4 SEQ 0160 
CZR60B.P11 -DEC- CIAL COMMAND Ean 


101 16 #SELDRV,P. cS1(R5) ;STORE ¢ 
Beo400 14 peye HK,P.PRS at NO CHECK 


co pus A HHevewcsicnsy, iibscttatteamey gure” 
BEE SORE sy EAU Ra ait 
000001 13%: CMPB #RDALHD,P. “enn 
+ Sd SR ERED EOnrP erro 


4 RS,0.uA 
B303i0 B0000? BTye fe Pet Ste RS meee tree em 
? BIT MT,P.CSIHCRS) FORMANT 
gg. vonecr Py aan 
Spode 228: fov  B-eveNCRSS. Sage 5 cinepalore 
P.SECT( 
ib 2 Hove fa | yu $8 Pxc&Bt orive TvPE 


ee ee he eee 


Reese SMBS eeRS ‘CRBS 
as aes one 
: 
8 
8 


SL cL eSREEPRARE 





1 12765 000125 6 MOVB AD,P. j 
1 000400 B00 4 BIT at pret eg: TE AO CHECK MODE 

ie & oo0000 AOY ce (RS), anna oe shat 
8085 ieee 13? O4e074 JMP CI RTRN ;Rest 
: 1 2765 000 000 : MP seer sCHECK IFC R CLEAR 
Goa GLEE Agi7eg 00017 ono: sos: gee agg ures : 
8093 1666 037170 RO,I.CCLR 
Boe 1g74 000400 000014 Gi RTRN woo, p.past.asie wae 
8096 1 308 149 BEQ 4 ate aay C RETURN 
B03 1 oo0000 cLR RKCS1(R2) ce OP? 
8038 041710 40$ 
81 17 2765 000177 O00001 32S: CMPB LR,P. cHND RS) CK IF YSTEM CLEAR 
Biot Bald b55 BEQ Ses Me: ca use 
8102 17 999100 003062 34S: BIS Be: ALtB . CONT R COMMAND 
1 17 737 ISR PC aGon 
8108 17 7 BR pont REGISTERS 
81 041736 0127 0 OO0010 36S: MOV #SCLR,RKCS2(R2) genni TEM C 
B1oe 041744 O BE eae 000016 MOV RKCS1tR2).P.CS1(AS) :ST ye: EAD. STATUS REGISTER 1 
8108 041758 0 : 65 100000 Oo000i6 BIT #CERR, P eS (RS) CLEAR IF TROLLER ERROR RESET 
B110 Bui dee Bes 000001 003062 BIS #BIT0,E.CONT Set SHEAR SU y SYSTEM DID NOT CLEAR 
8112 041770 004737 o40200 JSR PC,R.CONT t REBOR TE 
B113 041774 000437 BR C.RTRN ?RESTORE REGISTERS 
8115 041776 013746 003070 375: MOV W.MILI,-(SP) ;LOAD 16 _MILI-SECOND COUNT FOR ATTENTION 
8116 TO DISAPPEAR 
8117 O42002 016265 OO0000 oD0D1I6 38%: MOV RKCS1(R2),P.CS1(R5) ;STORE CS1 


F13 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 162 SEQ O16! 
CZR60B.P11 O2-DEC-77 10:46 “SPECIAL COMMAND PROCESSING 
8118 ou201 765 oO40000 o00016 IT #D1,P.CS1(RS) i CHECK ei Br ATTENTIONS CLEARED 
i2 b3te BEC aap) NT Ps COUNT 
Hp a Et e288, eet dhe ECSR 
Ht 000040 003062 Bis #—.SCLR,E.CONT rep r2 Sten M CLEAR DID NOT CLEAR 
1 737 040200 ISR CONT REPORT — 
g1 B45b90 B8a4is BR Oat an ;RESTORE REGISTER 
81 ens 726 39S: TST (SP)+ ADJUST S 
1 765 oo00400 oo00014 IT #NOCHK,P. PRST(RS) 3 PKo 
8152 Os 1910 BAe OR SRN’ vis, sae REGISTERS. 
Bi3e ousbes dtS%e2 bool00 Ooad0D Move sie RKeST TRE) NTERRUP 
6133 845895 BAS535 Baoiee 40S: JSR PC, R.NORM eer INTER RUT ENE on 
8135 74 012637 177776 C.RTRN: MOV (SP)+,PS STORE 
8136 i pte a0 MOV (SP)+)RO RESTORE 
8137 1 012601 MOV (SP)+/R1 j RESTORE Ri 
81 1 12602 MOV (SP)+) Re *RESTORE Re 
8139 O42106 012603 MOV (SP)+°R3 ;RESTORE R23 
8140 o4e110 012604 MOV (SP)+)R4 j RESTORE RY 
8141 O4elle O1260S MOV (SP)+)RS ?RESTORE RS 
8142 O42114 000207 TS PC * RETURN 
B13 .SBTTL OCTAL TO BINARY CONVERSION ROUTINE 
gly? . | Eee 
8147 1 i THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED 
8148 1a WITH HA NULL <005> OR COMMA. IF THE CHARACTERS ARE LEGAL 
8149 1a IT WILL GENERATE TWO BINARY WORDS PLACING THE LOW 16 BITS 
8150 i ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOC 
8152 > *#CALL 
B153 1a SAODRESS OF ASCII STRING>,-(SP) 
8154 1a Wee C, OCTBIN 
B155 1 <ADDRESS Pst ERROR RETURN> 
He _ 
8138 :; : MRELKKAARARARKARSRAKERAAKASREARA RRA RARRARRARARARARAAAAAAAKRKKRARRAKE 
8160 O42116 O10046 OCTBIN: MOV RO, -(SP) ;SAVE RO 
8161 O42120 010146 MOV R1’-(SP) :SAVE R1 
Bl6e O42lee 010246 MOV R2’-(SP) :SAVE Re 
8163 O421e4 016600 on0010 MOV 10tsP),RO *GET ADDRESS OF ASCII STRING 
B164 o4e130 005001 cLR Ri *CLEAR DATA WORDS 
B166 48134 112046 2: Hove (RO)+,-(SP) sPICK TH THIS S CHARACTER 
8168 sth 121627 000054 CMPB (SP), 8’, tree TF COMA 
8156 buStue 003300 000060 aa #0, (SP) IAKE SURE Tur CHARACTER Is 
8171 O421Se b5Sa48 BGT ug’ : AN OCTAL DIGIT 
8i72 O42154 122716 ooDnEr CMPB #’7, (SP) 
8173 O42160 OOe4eS BLT 4g 
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CZREGBO, RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 163 SEQ 0162 
CZR6QB.P11 O2-DEC-77 10:46 OCTAL TO BINARY CONVERSION ROUTINE 
174 2162 1 ASL R1 ; #2 
175 2164 10e ROL Re 
176 1 ASL RI ; #4 
B1 1 ROL Re 
178 1 1 ASL Ri ; *8 
8179 2174 102 ROL Re 
180 716 177770 BIC #tC7, (SP) ;STRIP THE Qscll JUNK 
181 1 BOD CoP)+, Ri AOS THIS DIG 
183 7 3S: TST (SP)+ :CLEAN PARTIAL FROM STACK 
184 1 1 990010 MOV R1, 10(SP) :SAVE RESUL 
185 14 O01 2250 MOV Re’ $HIOCT 
8186 2220 Ol1e602 MOV (SP)+,Re ;RESTORE Re 
B18? eeee 1 MOV (SP)+, RI :RESTORE R1 
188 1 (5P)4+'R :RESTORE RO 
6.389 2226 2716 oo0002 #2, (SP) ‘ADJUST RETURN 
8130 32 RTS PC + RETURN 
1 7 4S: TST (SP)+ AN PARTIAL FROM STACK 
Bias o4sese | Bbiene mov «CSP 33, Re ee ORe Re 
8194 ougesg 12601 MOV (SP)+;R1 ;RESTORE R1 
8195 O4ee4 12600 MOV (5P)+'RO ;RE TORE 
8196 Guees 013616 HOV a(sP)+, (SP) 168 ADDRESS OF ERROR ROUTINE ON STACK 
8198 2250 oo0000 GHIOCT: .WORD 0 IG a8 R ERs GO HERE 
8199 .SBTTL RANDOM NUMBER GENERATOR ROU tne - 
8502 iETHIS ROUTINE TS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
ashe j RMITH A RANGE OF O TO 2(+33)-1. 
8205 1 i ISR PC, SRAND {eben THE ROUTINE 
Be0e i RETURN 3 FRE RN HERE E THE RANDOM 
Bete ;* ; :  SHINUN, 8 
8210 oO4225e $RAND 
Bell OY4e2e5e o10046 MOV RO, -(SP) ;;PUSH RO ON STACK 
Bele 042254 010146 MOV R1;-(5P) >:PUSH R1 ON STACK 
8213 O4eeS6 010246 MOV Re’ -(SP) :?PUSH Re ON STACK 
8214 O4ee 13700 042352 MOV SLONUM, RO ::SET RO WITH LOW 
8215 O42264 013701 O42350 MOV SHINUM;R1 +:SET Rl WITH HIGH 
Be16 ouee70 0127 177771 MOV #-7,Re ::SET oH FT COUNT 
821 274 1S: ASL RO :: SHIF LEFT AND 
Be18 O42276 O06101 ROL R1 ::ROTATE CARRY INTO R1 AND 
8219 O4e 005202 INC R2 ::CHECK FOR DONE 
Bee0 o4 Oo1374 BNE 1$ ;;CONTINUE SHIFT LOOP 
Be 1 o 3700 042352 ADD SL ONUM, ,RO ; ADD oAg MAKE xX 129 
8555 os 19 37ot 042350 ADD SHINUM,R1 + OE or #6 MAKE X 129 
Bees 316 062700 001057 ADD #10S7,R0 :ADD LOW CONSTA 
8225 Ouesee 905501 ADC Ri +: PROPOGATE CARRY 
Beeb 2 1 O47401 ADD #47401,R1 *ADD HIGH CONSTANT 
8227 O42330 010037 O42352 MOV RO, SLONUM ::SAVE RO 
Bee8 042334 010137 O42350 MOV Ri’ SHINUM ::SAVE Ri 
8229 042340 012602 MOV (SP)+, ::POP STACK INTO Re 





CZR6QBO RK& DR CPT PROG MACY11 30( 1046) 


CZR6QB.P11 


Ef 


Bu5346 
042346 
3 Bu5382 


O4e 
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815884 
000207 


176543 
1234S6 


105737 


001157 


afeetent 001350 


000100 
Riese 

44764 
000040 


ooo0de2 
000011 
000200 


042632 


O42S66 
001156 


001154 


001351 


001351 


O2-DEC-77 11:48 PAGE 164 
RANDOM NUMBER GENERATOR ROUTINE 


HS\ {8P37;Rd 
Roe BBA 


SEQ 0163 


biBGP Stack ENTS Re 
; ; RETURN 


$ ROUTING TO TYPE Recl? MEccnGe MEccace Mls? TERMINATE WITH AO. 
{RROUTINE TO TYPE ASCIZ MESSAGE. NATE WITH A O BYTE. 
taTHE ROUTINE WILL INSERT A NUNBE at beh Ea AFTER A AL LINE FEED 
*xNOTE1: L ~CONTAINS TH THe ef E ILLER CHARACTER. 
 xNOT eg: LLS CONT INS THEN PItteR SO ARACTERS REQUIRED. 
j #NOT FILLC CONTA T RoR T LL AFTER. 
tei) USING A TRAP INSTRUCTION 
: TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
; #OR 
5% YPE 
: MESADR 
H es 
$TYPE: TSTB STPFLG 31S THERE A TERMINAL? 
BPL 1$ BR 
et as te bve HERE IF NO TERMINAL 
1$ mov ATE (SP) a 
V adelSP),R fee 2 STRING 
CMPB P FENG Ge abr ROSE 
BNE 62S K FOR Ant {CONSOLE 
B1TB #APTSPOOL, senvm : of aug 
MOV ne: RL CONS OR APT 
i ISR . PC, "BAS a APT 
625: ITB GAPTCSUP, SENVM ; 
BNE Be Sd 
2s MOVB (RO)+,-(SP) 0 BE TYPED ONTO STACK 
BNE 4§ F ten Ina Nee THE TERMINATO 
ST (SP)+ ERMINATOR POP IT OFF THE STACK 
60S: MOV rie RO : ;RESTORE RO 
3$: ADD SP) : AbSust RETURN PC 
RTI :RET 
4§ ee eoen  } BRANCH IF <HT> 
CMPB BCRLF,, (SP) ;;BRANCH IF NOT <CRLF> 
Bue (SP)+ ; ;POP <CR>< F> EQUIV 
TYPE Lt TYPE A REND EQu 
CLRB SCHARCNT ; ;CLEAR CHARACTER COUNT 
BR 2 :GET NEXT CHARACTER 
S$ ISR PC, STYPEC Hc) TYPE THIS CHARAC 
63 CMPB SFILLC, (SP)+ ::IS IT TIME FOR FILLER CHARS. ? 
BNE ::IF NO GO GET NEXT CH 
MOV $NULL, -(SP) ::GET # OF FILLER CHARS. NEEDED 


1 30(1046) _O2-DEC-77 11:48 PAGE 165 SEG 0164 
TYPE ROUTINE 


CZR6QBO RKE DR CPT EROS MACY 1 
CZR6QB.P11 O2-DEC-77 10:46 


8286 ;;AND THE NULL CHAR. 
Bee 2522 105366 000001 7$: DEcB 1(SP) LIBR Te" yOcGo" POP TO BE TYPED? - snee 
Be ee 539 2566 JSR PC, STYPEC ::GO TYPE A 

8290 105337 2632 DECB SCHARCNT ::DO0 NOT COUN Lis A COUNT 

B23! 2540 000770 BR 7§ : LOOP 

8505 ;HORIZONTAL TAB PROCESSOR 

BSee o42e542 112716 oo00040 gs: MOVB ;;REPLACE TAB _WITH SPACE 

8296 0047: 042566 93: JSR PC, giipec :TY 

Be37 ee ise? 000007 042632 BITs a, 7; SCHARCN i BRANCH IF NOT AT 

8299 Bs 2 i tet (SP)+ POP SPACE OFF STACK 

6301 35ee 1057 136356 STYPEC: Tre gSTPS . ;;WAIT UNTIL PRINTER IS READY 

8303 puse55 1 ees? oo00002 136350 MOVB 2(SP), a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
8304 Oueb0e b67083 000015 o00002 CHPE HcR, elSP) iT CHARACTER A CARRIAGE RETUR 

8306 Ouse? 105037 042632 cLRE SCuaRont i} YES" “CLEAR CHARACTER COUNT 

8308 oY 60 122766 oO00012 ooo000e 1S: cnPe ALF 2 (SP) j:1S CHARACTER A LINE FEED? 

8310 O42630 105227 INCB (PC)+ ?:COUNT THE CHARACTER 

8311 O4263e O00000 SCHARCNT:.WORD O :: CHARACTER COUNT STORAGE 

B31¢ 042634 000207 STYPEX: RTS PC 

8314 

BIE 

Baie : SBTC “DOUBLE-PRECISION MULTIPLY SUBROUTINE. |= °° 8 SSS" 

8319 ;% SUBROUTINE TO MULTIPLY Fo BO DOUBLE PRECISION INTEGERS 

8320 i USES ALL REGISTERS (RO-RS) 

8322 tx ENTER WITH JSR PC,M.OPIM 

8323 1 i MULTIPLIER IN Re-R 3 

8324 i UL TIPLICAND IN RY-RS 

B326 ; PRODUCT Se TURKED® IN RO-R1-R2-R3 

S362 042636 o0s000 1] a rc, ce OY eo 
8329 042640 005001 CLR Ri 

83 42642 012746 000041 MOV #41,-(SP) ;MOVE 33 (DEC) TO COUNTER 

8331 O42646 O06000 M.DPO1: ROR RO 

833¢ 26 001 ROR Ri 

8333 eb 002 ROR Re ;SHIFT TO ADD 

83 4 003 ROR R3 

8335 2656 103003 BCC M. OPO2 ;NO CARRY NO ADD 

8336 2660 0501 ADD RS,R1 

8337 ebbe 90 500 ADC RO et ;ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL 
8339 eE DBSsie M.DPO2: DEC ase :DECREMENT COUNTER 

8340 042670 001366 BNE M.DPO1L 

8341 O42672 005726 TST (SP)+ ;REMOVE THE COUNTER 
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CZR60B.P11 O2-DEC-77 10:46 DOUBLE <PRECISION MULTIPLY SUBROUTINE 

8342 042674 000207 RTS PC 

gaua 

Ba4e "SBTTL” DOUBLE-PRECISION DIVIDE SUBROUTINE © 0° 0" Une STt 

34 ;# SUBROUTINE TO PERFORM DOUBLE -PRECISION INTEGER DIVISION 
8348 i USES ALL REGISTERS (RO-RS) 

8350 :% ENTER WITH JSR PC,M.DPIO 

8351 1% IVIDEND IN RO-R1-R2-R3 

8352 te IVI IN RY-RS 

8353 1% REMAI TURNED IN RO-R1 

B354 i QUOTIENT RETURNED IN R2-R3 

8356 4 s REKAARAAAARAKASRAAAARAKAAAARARARAHAAAKRERARAKRARARAAARARARAAAARRAARKAE EE 
8357 gue 76 ocoo40 th’ OPID: mov #0, ~(SP) ; COUNTER FOR DIVISION CYCLES 

g3e9 2704 MOV RS'-(SP) LO ORDER DIVISOR TO THE STACK 
8360 277 ooo002 NEG 2(SP) :FORM NEGATIVE 

Bae buses oo0002 Nee 3 7EP) eS ee 

8363 042720 ADD asP,R1 

8364 4 sande ADC RO) - ;PERFORM THE INITIAL SUBTRACTION 
8366 7 BCS M.OPSO ; IF CARRY THEN OVERFLOW HAS OCCURRED 
B36? 673 oe cLR 5iSP) :THIS IS A LONGER LASTING CARRY BIT 
8369 6736 , ” ROL Re 

83 7 ROL RI 

837 2742 ROL RO 

837 744 TST asP ; TEST “CARRY INDICATOR” 

Bini Bieres ee | bre ELemR USTERMS rine SUSE SUBTRACT 
8375 g oo0002 ADD 2(SP),R1 

gure er ne a al 

8378 Buse oooo04 ADD 4(SP) RO’; < 

8379 A BR M.DP42 

8380 M.OP41: ADD RS,R1 

8381 e776 ADC RO. oa : ADO +{DIVISOR) 
6383 oe ADD R4,RO  3< _ 

384 M.OP42: ADC ase ;SET “CARRY” 

TST asP ;TEST THE UPDATE INDICATOR 

838 sia Ra . iI EARRY "POSSIBLE HERE 

8388 10 366 oooo0s DEC &(SP) 3 *DECREMENT COUNTER 

8389 14 3347 BGT M.OP4O :BR IF MORE TO DO 

8391 043020 103404 BCS M. DP4Y4 

8392 043022 060501 ADD RS,R1 

8393 043024 005500 ADC 

8394 3026 060400 ADD R4, RO 

8395 0430 000241 CLC 

8396 043032 006103 M.DP4Y4: ROL R3 

8397 043034 062706 oo0010 ADD #10,SP ;ADJUST STACK BY 4 WORDS 


CZR6QB0 RK6 DR CPT PRO 
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[8] [eslecteslecteeloateelestesteeles] 

2 yr Sy Se Se Se Se be by br 
MTR ee ee 
WNM-OWONCMCWE 


G MACY11 30(1046) 
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3ov2 Sousa? 


043044 062706 OO00006 
000262 
0430Se 000207 
043054 104407 
043 016601 900002 
pistes Biers Sea 
6430 B1S703 177770 
043076 012100 
3108 012101 
3} 00S 
ite At 45 
ait 
Batis Sree 
aii Be 
0431 010566 000002 
B43 Cette 
iS eee, 
ted 006001 
O4313¢ 006001 
043140 006000 
043142 006001 
Rate 0060 
04 138 04030e 
0431 0627 000060 
043154 000753 
043156 OO0016 
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O2-DEC-77 11:48 PAGE 167 
DOUBLE-PRECISION DIVIDE SUBROUTINE 


CLV 
RTS PC 
ADD #6, SP 
SEV 


RTS PC 


SEG C166 


M.DPSO: 


-SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


55. 3 HE He He AE HE Ae He HE ae a He HH HE 
;*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
be te OCTAL ASCIZ NUMBER. 


: MOV #PNTR,-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
$% JSR PC, a#$0B820 +:CALL THE ROUTINE 
1 RETURN :: THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$DB20: SAVREG ;;SAVE ALL REGISTER 
MOV 2(SP),R1 5 PICKUP THE POINTER TO LOW WORD 
MOV #SOCTYL+13.,RS5 ;;POINTER TO DATA T 
MOV #12.,R4 :;DO ELEVEN CHARACT 
MOV #tC7,R3 ; ; MASK 
MOV (R1)4,R0 ;;LOWER WORD 
MOV (R1)+,R1 ;; HIGH W 
CLR Re :; TERMINATOR 
1S: MOVB Re, -(RS) : :PUT CHARACTER IN DATA TABLE 
MOV O;Re :iGET HIS pigir 
DEC +: COUNT HI CHARACTER 
BGT 3$ :;BR IF NO T AST DIGIT 
BEQ 2S ::BR IF i Is LAST DIGIT 
INC > ALL OI IT -ADJUST POINTER FOR FIRST 
MOV RS,2(SP) ::ASCIZ CHAR. T IT ON THE STACK 
RESREG ::RESTORE ALL REGISTERS 
RTS PC > RET TO USE 
2s: ASR R3 ::POSITION THE MASK FOR THE LAST DIGIT 
33: ROR R1 :;POSITION THE BINARY NUMBER FOR 
ROR RO HE THE NEXT OCTAL DIGIT 
ROR 1 
ROR RO 
ROR R1 
ROR 0 
BIC R3,Re ;;MASK OUT ALL _JUNK 
ADD #0, ke +:MAKE THIS CHAR. ASCII 
BR 1S ::GO PUT IT IN THE DATA TABLE 
SOCTVL: .B -: RESERVE DATA TABLE 


LKB_ 14. 
-SBTTL OOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


55 He AE He HE A HE AE HE AE A A 2 A a Ha EH EH HH HH HE 
;*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
5 BOSS  (ROEIT) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


#PNTR,-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 


1% MOV 
: PC, a#$DB2D 


;* JSR 
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R6Q8.P11 O2-CEC-77 10:46 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

S ;% RETURN ;; THE FIRST BODRESS OF ASCIZ 

455 ;;1S ON THE STACK 

gues 

Bue 043174 104807 $DBZD: SAVREG ; ; SAVE REGISTERS 

4 176 16602 goggge nov 2(SP) Re i ;PICKUP DATA POINTER ell 
Bue) 043806 616066 Boaabe MOV Roos reps BGT ARBRE SE SF SET RING ON STACK 

e 16 i 201 mov (Re) +, Ri ::PICKUP THE BINARY NUMBER 
464 Basie B1s595 000012 043272 MOV #10. .4¢ ;;SET UP TO DO 10 CONVERSIONS 
43850 1878¢ Bua30e YET 0,5 «SS UORESS GF TEN PULER 
1S: CLR R3 : ;;CLEAR PARTIAL 

B4 3236 161401 2s: SUB (RY), RI ::SUBTRACT TEN POWER 

B 3 eue 1502 Sug (RS),R2 

471 BLT ;;BR_IF TEN POWER TO LARGE 

B72 iag INC R3 5 39D 1 TO PARTIAL 

aa m Obe401 3S: ADD cAM)+, Rd + Ree one SUBTRACTED VALUE 
girs Blast EBt:8 

CMP (RS)+° (RS)+ ;;MOVE TO NEXT TEN POWER 

8478 O4326e 052703 O00060 BIS, 8: (B34 ; }CHANGE PARTIAL TO ASCII 

E480 043870 DEC RBA) 8 tt BONE? 

8481 3272 OO0000 4S: . WORD 

8482 043274 001357 BNE ;;BR_I 

483 7% 1 CLRB (RO)+ jj TERMINATOR 

464 4 Q RESREG a j ;RESTORE REGISTERS 
8486 043304 145000 STNPWR: 145000 :?1.0€09 
8487 3 035632 35632 
Bia Bale d62%0 sppz0 ~— 

4 14 ise 113200 ;;1.0£07 
B32 043320 Oa1700 041100 ;;1.0£06 
8494 043324 unter 103240 ;;1.0€05 
636 043390 34 gatao ;;1.0€04 
8498 043334 001750 1750 ;;1.0€03 
8500 ou ager 144 ;;1.0€02 
8501 342 OO00000 0 
850, oO 34 l2 12 ;;1.0€01 

850 3346 0000 0 
ceo! isses OBteos : ane 
8506 By33eq 000014 $DECVL: .BLKB 12. «RESERVE STORAGE FOR ASCIZ STRING 
8507 “SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


8s09 5p HH EE EERE EERE EERE EERE RELA EE 


CZR6QBO RK& DR CPT PROG MACY11 30( 1046) 
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a 
os 
o 


iaiaittatatytatatal 
ee 
NOW LW 


7 8} 
BRS oo 
14 
i ea 
8524 Riaite 010037 043420 
8SeS pad 104401 
Ses: 
8Se8 O434e4 012616 
B5a0 043426 000207 
1 
Es 
Es 
8S38 
8533 
Bei 
BS4e 
S43 
S44 
= 
S4 
3 
8ss0 
Bese 
s 
gece 34 017646 ooo0000 
Be Be He BOE oes 
Be RES tere 
8560 O434S4 115555 90000} Oi 2es2 
Geel Bits isrer Be RUE 
8S63 043476 010346 
8564 0435 010446 
BS6S O4350e 010546 
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O2-DEC-77 11:48 PAGE 169 
TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


;*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
LEADING NUMBERS. 


SEG 0168 


ie MOV BNUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
: JSR PC, J#SSUPRS 
a Geaps RO P THE POINTER 
is: le tats  Eeatheltt 
bre. ro, (RO)+ Hae BN ASCII “O" ? 
es: 
MOV RO, 3$ ii Save Tye" TYPING 
3S: . WORD 360 NTER GOES HERE 
MOV Care RO i RPCTE EE AG 
MOV (SP)+; (SP) ; ;RESTORE THE STACK 


PC 
- SBTTL BIRARY TO OCTAL (ASCII) 


; jSHtROSSSE SSSR ESOR ES BRERA ER SS SERED OBER ERE RES EERE SEER ERE ERE ERD E RE 
tATHIS ROUTINE IS USED TO rae oe 16-BIT BINARY NUMBER TO A 6-DIGIT 
;#OCTAL (ASCII) NUMBER AND TYPE IT 
j XSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


te MOV NUM, -(SP) TO BE TypeD 

; i TYPOS i $CALL FOR TYPE 

; - BYTE N 3;N=1 T 6 FOR NUMBER OF DIGITS TO TYPE 
3% -BYT M 3;M= 

;* Ff seh LEADING ZEROS 

;* ;0=SUPPRESS LEADING ZEROS 

9 


; *STYPON----ENTER HERE TO TYPE OUT WITH THe SAME PARAMETERS AS THE LAST 
j #STYPOS OR STYPOC 


+ * MOV NUM, -(SP) ;;NUMBER TO TYPED 

is TOS ON PeCAe FOR TYPEOUT 

| ASTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

+ MOV NUM, -(SP) R TO TYPED 

$i TYPOC HH L FOR TYPEOUT 

STYPOS: MOV a(SP),-(SP) sPICKUP THE MODE 
MOV 1&3P):; OF ILL 4 Cane ZERO FILL SWITCH 
MOV (SP)+’ SOMODE+1 : NUMBE OF DIGITS TO TYPE 
a0 wah ::ADJUST RETURN ADDRESS 

STYPOC: move #1,SOPILL ;SET TH THE ZERO o FILL SWITCH 

STYPON: HOV B S3cnt Hd THe TH Bt rDA EOaNT 
MOV RY; -(SP) + OVE Ra 
MOV RS; -(5P) :: SAVE RS 
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CZR608.P11 O2-DEC-77 10:46 BINARY TO OCTAL (ASCII) AND TYPE 
B5b6 7 043655 MOVB SOMODE+1 ,R4 ;;GET THE NUMBER OF DIGITS TO TYPE 
i 4 NEG 
ees 1 OE 6 a00 a6, RY - ; SUBTRACT IT FOR MAX. ALLOWED 
it 3ee3 MOV AAS talent ::GET THE ZERO FILL SWITCH 
B57 1 000012 MOV 12(SP);RS i ;PICKUP THE INPUT NUMBER 
7 CLR R2 33CL THE OUTPUT WORD 
Bo? 1 1S: ROL RS ;ROTATE MSB INTO “C” 
74 BR 33 ;;GO DO MSB 
75 1 2s: ROL R ::FORM THIS DIGIT 
26 42 108 ROL RS 
44 1 ROL RS 
os MOV RS,R3 
1 3S: ROL 3 3GET LSB OF THIS DIGIT 
37 043654 DECB SOMODE ::TYPE THIS DIGIT? 
BPL 33 4 : 


7$ ;;8R 
177770 BIC grrrre me 33GE 


Ss 
WO @ 
tm a 
TOLSENOT E 
—s Cs 
ae 
oO 
<£ 
ical 
pepe Ff 
Soa 
2sDuID 
es UP 
2 
wD 
iG) 
eeeee “4 
> im 
47 
Zn<noozZ 
Hw g 
<0 7° 
Hwy 
mes 
Hg 
m 
° 
w 


S : I 
ocoo40 i}. } S #’ ,R3 ;;MAKE ASC { NOT ALREADY 
043650 MOVE R3,8$ :;SAVE FOR NG 
1 043650 TYPE at ::G0 YPE THIS DIGIT 

1 337 043652 7$: DECB $OCNT : ? COUNT 1 

Beas 347 BGT es ;;6R iF TO DO 
02 BL 63 ;;BR_IF DO 

8ss4 04 INC RY ;; INSURE LAST DIGIT ISN’T A BLANK 
Baap Muy BR +, ;;G0 98 THE LAST DIGIT 
8s 1260S 6S: MOV (SP)+,RS ;;RESTORE RS 
8597 3632 012604 MOV (SP)+,R4 ;;RESTORE RY 
eae sea! Rises MOV (SP)+,R3 5s RESTORE ay 
8s 16666 o00002 oo0004 MOV 2(SP),4(SP) 3;S5E STACK FOR RETURNING 
8600 043644 012616 MOV (SP)+, (SP) 
8601 Bi zede o0000e RTI ; ; RETURN 
8602 000 8S: -BYTE QO 5 5 STORAGE FOR gh DIGIT 
8603 043651 000 -BYTE O 3; TERMINATOR FOR TYPE ROUTINE 
8604 04365e 000 SOCNT: .BYTE O ;;OCTAL DIGIT COUNTER 
sese BSCE oootbd Sondbe! <tonb 8 i RombeR OF BYLITE ro Tee 
8607 .SBTTL CONVERT BINARY TO DECIMAL’ AND Ree ROUTINE 
8609 5 5 He AE AE AE ME AE AE AE a 0 A a a a a a a a a 
8610 i :&THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
8611 ;*#SIGNED DECIMAL (ASCII) NUMBER AND TY IT. DEPENDING ON WHETHER THE 
86le ;#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
8613 ;*#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
Sie ‘erp ew WITH SPACES. 
8616 . ix MOV NUM, -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
giz 3% TYPDS ;;GO TO THE ROUTINE 
B619 043656 STYPDS: 
8620 O43656 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
8621 O43660 O10146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
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SOTBL: 


De ak A Rh 


ow 
| om ome) 
ae 


12 


ae 


3 


SEBS IBBzE 





K,R3 
a’ ,(R3)+ 


-1(R3) 


‘Seen 
ae 
° Ore 

+ 


oe 


BAAS 


~ 
~ 


ae 
Ss a 


~ 
' 
my 
é 


aftr mn nnnr i 
BHSVBOS RE 
Ne et ee ee ee ee ee 
+E +4444 


eB 


Soe ERROR HANDLER ROUTINE 


5 AE SE A aE 0 ab aE a SE a a a Ha a a a a aa HE 
{ATHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 





BCD DIGIT BY 1 


mare Bs sas 
isrit art BOING BOING NG 0°S? 
78 os ue, 
aie EMT PENEGRLL? BIGHT, 


nae 


creer LSO SAS Hast NON-ZERO? 


= THE SIGN FOR TYPING 
a rein 
; POP 


;POP STACK nt RA 
;POP STACK_INT 
ENO THE _NUMBE 
ADJUST THE STACK 
;;RETURN TO USER 


Se Oe Sl Se Se Se SF OF Ss OF SF Oe Se SS Ss Ss Se Se Ss OF Ss OF Os es eres eres 


C14 
RK6 OR CPT PROG MACY 11 30( 1046) ERROR HAMOL ie ch ctr wee 172 SEQ 0171 
ony THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
ie aTHe SHITCH Prone BY THIS ROUTINE ARE: 


INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 


tt LOOF ON ERROR 
ERROR WN ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 


vm i tl tiBGN eT cer the FLAG G0 70 ZERO 
us | Yaa La fai eEN OCR ru 


se .RErc See Te P AND SAVE THE ERROR ITEM CODE 
#81713, aSWR iF SKIP TYPEOUT IF SET 


= 
a8 
: 
B 
7 
& 


= 
i 


1S: 





eg33341223833332: 


FONT EPO RE LOO RUD 


eo a 
Rove 
BIT IP 
feaat BBE Wh. Flare 1G To TEE leon nour 
87’ 20S: ; 
7 1327 000001 001350 CMPB SOPTENV, SENV NING IN 
F 5 1114 044220 ae T 21s + tten sete ERROR NUMBER 
S bbe Bi oe AEG 
87 21s BYTE 
8709 o442e 900 * BYTE eer 
Brit Ba 88555 134710 5° : Fe, ees, ; HALT EONCE 
B71e 1 BPL | 33 ;SKI P a 
ae a oho 001000 134676 3S: pit 1709, aSWR a4 ae SWITCH SET? 
871 244 0137 1110 MOV PERR, (SP) Popes TURN 
e717 $20 08737 1316 4S: TST SCAPE i: CHE KF AN ESCABE ADDRESS 
8726 pases 013716 001316 = MOV SESCAPE, (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 
7el 022737 017264 oD004e ; CMP #SENDAD, a#42 ;;ACT-11 AUTO-ACCEPT? 
8? O44 ? 001001 BNE 6$ ::BRANCH IF NO 
ia aders os: HALT 3; YES 
7 4274 oo00002 RTI ; ; RETURN 
8726 .SBTTL TTY INPUT ROUTINE 
87 | > “tae” peertaen een tapamen aac tananiaaar vietnam ters: ermattaats 
856 : L LSB 
87 .DSABL LSB 


8733 


CZR60B0 
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2 


pEESESISSITTE: 
Sins 


=f 
rts 
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O44464 


RK& OR CPT no MACY11 30( 1046) 
10:46 


ooode4 


ooode4 
800036 


one tear ik PAGE i73 


Y INPUT ROUTI 


tk THIS 

ty HR 

; BFE, HERE 

;* 

; 

SROCHR: (SP) ,-(SP) 
Nov 4(SP),2°SP) 

1S: iste TKS 
Move TKB,4(SP) 
Bic 84C<177> .4(SP) 

4(SP), #23 

2s i378 3 TKS 
Bre Sove,-csey | 
cre 13634; bel 

i$ 

3S: che ASP), #140 
CMP 4(SP), #175 
BGT 4g 

ind BIC #40,4(SP) 

SCNTLU: "BSCIZ /tU/¢15><12> 

CNTLG: .ASC 74G7415><1e> 

: .ASCIZ <15><12>/SWR = 
SMNEW: .ASCIZ / NEW = / 


gs poognovsqqnanneesnengagnenscnssasovenosesenooonizegeggasnanaaas 
peti WILL INPUT A SINGLE CHARACTER FROM THE T 


BEN hch te BMETEE TRON TE TT 


WITH PARITY BIT STRIPPED OFF 


be 
I 


33C SouTROL “gn 


-SBTTL POWER DOWN AND UP ROUTINES 
;POWER DOWN ROUTINE 


cre. 


$PWRON: MOV #SPWRUP , PWRVEC 

HALT 
72 

:POWER UP ROUTI 

SPWRUP : CLR ‘Np 
INC SPWRCT 
BNE 4 
MOV 
MOV SPR? SR ONAVE CS 
MOV wR? TRAPV 
MOV esTad 
TYPE *SURNSG. 
RESET 
MP @SLPADR 


;SET VECTOR FOR POWER UP 
;HANG UP 


iSave Tre PS 
Ls 
2 Sh 


;SET VECTOR FOR POWER 


DOWN 
;RE-ESTABLISH POWER AND TRAP PRIORITIES 
ee NITIALIZE THE STACK 


er FAILED” 


‘CIE AR 


THE UNTBUS 
;RESTART THE CURRENT TEST 


;WAIT LOOP FOR TTY TO COME UP 


SEQ 0172 
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67 
7 
795 


ae 


BOI IS 
oO 
-_ 


pte tte tt he et adh 
OR Ow NOUN wr OD R 


ganuuee 


ew we 
5B 


at oe 
wre 


oo 
mo 
ff 
we 


PROG MACY11 
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gress go 


46 
O44SS4 


ales 


My 7 
14 

4570 7 

4S76 1402 


weoy Bbb0bE 


aes 
b0s0i5 


001103 
001000 
001110 


040000 


Bagead 


Yaa". 


oooc04 


001103 
001000 
001110 


001103 
00110e 


O42S27 
046111 
000 


134342 


134324 


000004 


134250 
001106 


E14 
174 


T: .WORD. O 
MSG: .ASCIZ <15><12>/POWER FAILED/<15><12> 
- EVEN 


FF fal-+-4-+-+-i- inhaled b++-+-+-t+4-talet-+-4-+-+-tah-trigt-+-+-+-+-tab-+-trt-i tall alalalaialaiaialaiaialainiale 
NTERNAL SCOPE ON ERROR ROUTINE 


= 
}#CALL ED BY “SCOPER™ 
Te ee eee eee say 
F_AN ERROR HAS OCCURRED 


dope i: TST B SERFLG ; 
IF NO 
BIT #8179, ISWR SEE IF L ON ERROR DESIRED 
BE BR I 


Q 6 : 
nov SLPERR, (SP) SET ERROR LOOP ADDRESS ON STACK 
6S: RTI } RETURN 


-SBTTL SCOPE HANDLER ROUTINE 
eee eee eee eee ee eee TT BILL INCRETENT 


; ATHIS S Rou Stoo ENG OF Fo oyBIES ESTS. IT WILL INCREMENT 
aT es Reve) intB of parc [e:08) REG. (DISPLAY<7:0>) 
Bue Eilts Sy ad 
ERROR 
5 SCOPE ; ; SCOPE=I0T 
SSCOPE: 
15: BIT aBITAM, , aSWR 33 LOOP ON. PRESENT TEST? 
eueeesTeRT OF CODE FOR THE XOR +icbentiese é 
$xTSTR: BR 6 siTF RUNNING ON THE | oXOR:. TESTER CHANGE 
33 HIS INSTRUCTION “NOP” =240) 
Mov zee avERAvE m3 . HE _CONTEN NTS "3F THE ERROR VECTOR 
pt a EDR Ete yecr 
BR ssvind :GO T XT TEST 
SS: CMP (SP)+, (SP)+ $30.10 THE STACK AFTER A TIME OUT 
BR” (SP) +, OUERRVEC + REP ON TH BRESENY test 
6$:;#8888END OF CODE FOR THE 1OR e. OoER Reses 
es: 1 RF G 5 HRS aN RROR OCCURRED? 
BIT a 1709, aSWR ii Qo ON ERROR? 
7S: nov $LPERR, SLPAOR fice LOOP ADDRESS TO LAST SCOPE 
4S: CLRB SERFLG ;;ZERO_ THE ERROR FLAG 
$SVLAD: INCB STSTNM ;;COUNT TEST NUMBERS 


SEQ 0173 
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Bey? 





Ba 


aaa ants +3 





MOVB re te 


MOV 

MOV ise } PERR 
CLR 

MOVB 


SATY3: MO #1. SMFLG 
BR t 
SATY4: MOVB #1,SFFLG 


.SBTTL Rpt sommeaentins ROUTINE 
TOT pttet-oh-bytpteied + tat) nltaatntieie- +a +++ + ial ++ + take ++ lalla 
$Aty RROR 


" Heise Bese ohuness ADORE SS MAILBOX 


i TSAV Eene ESCAPE PROM FROM ERROR ss 
1 >; ONLY ALLOW ONE (1) a ON NEXT Seer 
SOVER: MOV $StNn if MSO ISPLAY 501 AY TEST NUMBE 
Vv (SP) ; EUDG TURN ADDRESS 


370 REPORT FATAL 
ii T0 T A MES 


3370 ONLY REPORT FATAL ERROR 


SATYC: 

MOV RO, -(SP) ;;PUSH RO ON STAC 

MOV Ri’ -(SP) :PUSH R1_ON STACK 

TSTB SMFLG ; ; SHOULD TYEE A MESSAGE? 

BEQ 5 ;31F NOT: 

Cc BAPTENV, SENV : ;OPERATING UNDER APT? 

BNE 3$ :iIF NOT: BR 

BITB #APTSPOOL,SENVM ;; 9 SPOOL MESSAGES? 
35 NMES 

MOV (SP), RO 


sc IF $ 
»:GET MESSAGE 
a SS UNE RETURN 


71 ADD #2,4(SP) N ADOR. 
8876 1S: TST SHSGTYPE is SEE IF DONE W LAST XMISSION? 
8874 MOV RO, SMSGAD ::PUT ADOR IN MAILBOX 
Bare 2s: TSTB £R0)+ ::FIND END bf MESSAGE 

GAD, RO START 
s sn PO AR SN tae 
HOV a, Y a id TO TAKE MSG. 
3S MOV 35 sp) 4S ;;PUT MSG ADDR Bone A JSR LINKAGE 
ADD #2, 4( T DRESS 
Beg4 MOV 177776, -(SP) ; ;PUSH 135776 of STACK 
6535 JSR PC, $TYP 33C 
baer co 
8888 10$ TSTB SFFLG $s SHOULD REPORT FATAL ERROR? 
gee9 BEQ le :IF NOT: 
8890 TST SENV : RUNNING UNDER APT? 
8891 BEQ 125 :IF NOT: 
8892 11S: TST SMSGTYPE :FINI SHED LAST MESSAGE? 
8893 BNE 11 :IF NOT: WAIT 
8894 V a4(SP), SFATAL :GET ERROR # 
8895 ADD #2, 4(SP 5 ,5unP RETURN ADOR. 
8896 INC SMSGTYPE em abt TO TAKE ERROR 
8897 12S: CLRB SFFLG ;;CLEAR FATAL FL 
8898 CLRB SLFLG ;7CLE OG FLAG 
8899 CLRB SMFLG ‘CLEAR MESSAGE FL 
8300 MOV (SP)+,R1 Hs:4 STACK INTO Rl 
8901 MOV (SP)+°RO POP STACK INTO RO 


G14 ay 


ESREGB-Pii~ oScDec~#? Tove " aPF ConmuntcAtions ROUTINE. 
8902 


3 045216 000207 ma RTS | PC ; RETURN — 
8253 Qusse1 UF: “BVT f tk FLAG 
Bsoe S222 FLG: - BYTE 0 : FATAL FLAG 
890 APTSIZE=200 
8908 000001 APTENV=001 
pre (BBD ner eaespiee 
B31 aah =Qave AND RESTORE RO-RS ROUTINES 
B3t2 1 a” (gaemuacaatas rincemamaiin irmnpaummee aa iain mnie 
Bale i : 
916 1% SAVREG 
8317 j UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
B31 j RTOB---( +18) 
3 $# 42---(4+18) 

1 3% +4---RS 
e32e $# +6---RY 
8923 ;# +8---R3 
ae Pyeae 
9 :#+12---R1 
Bass 3 #+14---RO 

e 

5 Seu 10046 PO ay RO, -(SP) PUSH RO TACK 

Ouss65 61 46 MOV R1,-(5P) PUB RI ON STACK 

a ie A Set Es BB 

3 uses 1G MOV RY; -(5P) : Puen Ra ON STACK 
3 40 i 4 HOV Betsey (SP) CAVE AE or RAIN FLOW 

tige - ee 

g3e Byesug yeasts etal MOV $5 (8b) (ep) $328 ba SF MAIN Fou 
8937 O4S250 O16646 O000e2 MOV 22(SP)'-(SP) :;SAVE PS OF CALL 
8338 ous od D1B646 000022 Mov 22(SP);-(SP) ::SAVE PC OF CALL 
8940 
8941 ; RESTORE RO-RS 
Bove :*CALL: 
egy 7 RESREG 
gue es 012666 o00022 SRESREG: (SP)+,22(SP) RESTORE PC OF CALL 
8946 Due See bi Seee 0022 MOV (SP )+) 22(5P) > RESTORE PS OF CALL 
947 guse7e 12666 000022 MOV (SP)+) 22(5P) ;;RESTORE PC OF MAIN FLOW 
ce Gees flees Sannee ROY tgeissae”?EISSB' Steck rtro"ee” “U 
8950 Bue 304 012604 MOV (SP)+°R4 ::POP STACK INTO RY 
8951 308 012603 MOV (SP)+°R3 ::POP STACK INTO R3 
Bee 10 Ole602 MOV (SP)+'Re ::POP STACK INTO Re 
895 S3le 012601 MOV (SP)+'R1 :;POP STACK INTO R1 
8954 045314 012600 MOV (SP)+'RO ::POP STACK INTO RO 
8955 045316 o00002 RTI 
g956 .SBTTL TRAP DECODER 


Cc &SReOB Pit 


8958 
3 


RKE OR osen PR 
Oe-DEC-7 
045320 010046 


011646 


BbBBBE 


gists 
043454 
a 
043656 
gissre 
O04Se62e 
044562 


Q¥eHOR Ose123 
'S0Se 


o4SS02 
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045354 
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047515 
17 O4e4sSS 
23 047101 
04 053111 
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eee INe Hitt PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 


THI S ROUTINE W 


SEG 0176 


EPP odd Ae AREF ne Hn Te rhe rod PabERESE SehaGle PSuaoEeS® 


TO THA 
STRAP: 


RTS 


£186} "0 


(RO),RO 
$TRPAD(RO),RO 
RO 


Goce by 


ss 


:3GET rie Tae TRAP 


TION i : 


ii HINDEX’ T9 St 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
;MOVE THE PC DOWN 


HRP olbE fe paae™ 


(SP),-(SP) 
4(SP5,2(SP) 


;;CALL=TYPDS 


ALL=ROCHR 
ALL=SAVREG 
t CALL =ReSReG 


/ TEST / 


TRAP+1 (104401) 


Tes 


/*k  / 
/UNIBUS PARITY ERROR’ 


/NON-EXISTANT MEMORY / 


STRAP2: MOV 
.SBTTL TRAP TABLE 
; *BY 
; ROUTINE 
T $ 
$TRPAD WORD 
$TYPOC 
STYPOS 
STYPON 
STYPDS 
SROCHR i 
SAVREG ; 
SRESREG 
SCOPE 1 
TSTMSG: .ASCIZ 
AS2SP2: .ASCIZ 
EMI: /ASCIZ 
EM2: -ASCIZ 
EM3: .ASCIZ 


/NON-EXISTANT DRIVE/ 


~~ 


EXING 


Par pease The tRuc ton NS ADDRESSES OF THE ROUTINES CALLED 


TTY TYPEOQUT ROUTINE 


TYPE OCTAL NUMBER (WITH BOING Ze ZEROS) 
TYPE OCTAL NUMBER (NO LEADING 

TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


TTY _TYPEIN CHARACTER ROUTINE 
SAVE RO- OUTINE 

RESTORE RO-RS ROUTINE 

INTERNAL LOOP ON ERROR ROUTINE 


T14 


SEQ 0177 
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D000 on. KRHARARAKRKRKAKRAKRKRAARARARRAR 


5550050546505856056454540505 
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SEG 0180 


/ATT’N DID NOT RESET WITH CLEAR/ 
-ASCIZ /BAD DATA VERIF’N WITH READ. ECC OF LAST RETRY IS:7 


-ASCIZ /SUBSYS CLEAR DID NOT CLEAR DRIVE ATT’N/’ 
-ASCIZ /DATA LATE WHEN UNLOADING HEADER/ 

-ASCIZ /CONTROLLER ERROR WHEN DRIVER SERVICING/ 
-ASCIZ /DRIVE DETECTED PARITY ERROR/ 

-ASCIZ /MARKING THIS SECTOR BAD/ 

-ASCIZ /RETRY UNSUCCESSFUL / 


-ASCIZ /UNDEFINED ERROR/ 
-ASCIZ /RETRY SUCCESSFUL/ 


-ASCIZ 


. S = ci 6 FF # & —— 
nw i ww t ~w nw nw i 4 
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EMi01: .ASCIZ /CANNOT FIND A VALID HEADER IN TRACK JUST READ/ 


eeeea 


EM102: .ASCIZ /bAD SECTOR ERROR ON SECTOR NOT LISTED BAD/ 





1 
4 —EM103: .ASCIZ /TIMED-OUT ON READ HDR/ 
1 1 o4 020104 

50146 One110 

050144 504 EMIO4: .ASCIZ /TIMED-OUT ON SEEK/ 

90158 17 7117 

0501 1440 113 


Em10S: .ASCIZ /DRIVE SIEZED BY OTHER PORT/ 


me 
4 
mately 
bee 
AR 





EN SRRAS SARA SMe 


peeies nate EM106: .ASCIZ /DATA MISCMPR WHILE BAI SET/ 
i 
751 3 508 EM107: .ASCIZ /NO NEM ERROR WHEN REF’ ING LOC 760000/ 
116 
047111 
1 14 020103 
7 030060 
144 ite { g EM110: .ASCIZ /INTRPT WHEN CNTRLR NOT RDY/ 
1440 116 6lee 
Se 4 Bii¥ig 047516 O201e4 
Se 2elee 000131 
38 4 B26iie EM111: .ASCIZ /NO ATT’N ON SEEK/ 


~| 
ee 
Qno 


i oGR EMlle: .ASCIZ /DRIVE’S CYLINDER INCORRECT/ 
ate 
lil 


28.08 
BL BBR Dae ws 
FSS a 
2299998 2299 


Se 7 6524 EM113: .ASC 7ABORT- CAN’T READ BSF/ 
$595 DEO43E 1 O2e6Se4 EM113 SCIZ fe) BS 
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10 ihe 020104 


3040 EM114: .ASCIZ /KT11 FRILURE/ 


OOYO EM11S: .ASCIZ /MEM PARITY ERR/ 


1 50S 
Beit i 131 
Ge DH100: .ASCIZ /CURRENT COMMAND :/ 


7511 OHICS: .ASCIZ /PREVIOUS COMMAND :/ 


- 
= 


1 030461 OH200: .ASCIZ /RK611 REGISTERS :/ 
: palalt 


03504 
tauh DHSOO: .ASCIZ /REMAINING REGISTERS NOT VALID/ 

11 2524 

117 

101 111 


DHSO1: .ASCIZ /THE FOLLOWING REGISTER DATA MAY BE INCORRECT :/ 


REREE 
—" 
pater 
2992 

ro 
Rez? 
ERORe 
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DH101: .ASCIZ /ERR PC ORIVE CMND CYLNDR TRACK SECTOR WD CNT/ 
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1 0 it B0e0s DH1G2: .ASCIZ /HI BA LO BA/ 


pezk 6 DH103: .ASCIZ /PREV. UNIBUS MAP :/ 


a 
Fee 


O4350S DH1O4: .ASCIZ /HI REGO LO REGO/ 


: 
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350 DH201: .ASCIZ /RKCS1 RKCS2 RKOC RKDA RKWCR RKBA RKASOF / 
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DHe02: .ASCIZ /RKOS RKER/ 
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DH601: .ASCIZ /HEADER SHOULD BE:/ 





DH602: .ASCIZ /HEADER OF SECTOR O THIS CYLINDER IS:/ 


OODODOOO 
1,{1,*1 
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ee 


DH604: .ASCIZ /PACK ADDRESS OF ERROR(S) :/ 


WU J 


DH6041: .ASCIZ /CYLNDR TRACK SECTOR/ 
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DHE042: .ASCIZ /CYLNDR TRACK/ 


TRE IRS CaER RE 
Baan HOE 


: 
3397 
4339 
e401 


Det 
DH60S: .ASCIZ /ECC DATA IS:/ 
ANNO 
D47520 rae DH60S1: .ASCIZ /POS PAT CORRECTABLE? / 
200 124 
De004C 03 
S11 
sie 51 m6 1 lil G 6DHEOb: .ASCIZ /WORDI WORD2 WORD3/ 
9404 556 o20040 3440 7 a 
940S 051564 031104 053440 


DH203: .ASCIZ /A00 BOO Ao1 B01 Ade B02 Ad3 B03/ 
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TRAP TABLE 


DH607: .ASCIZ 


DH701: .ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


DH711: .ASCIZ 


DH204: .ASCIZ 


DHSO2: .ASCIZ 


DHSO3: .ASCIZ 


/BAD HEADER IS :/ 


/WD 8 GOOD BAD 


7GOO0D BAD’ 
/FAILING DATA WORD :7 
/SRO SR1 SR2 


/KT11 REGS :7 
“MEM REGS :7 
/PC LOERAD HIERAD 


7PC CSR AD CSR/ 
/CYLINDERS :/ 


7RKDS RKER RKMR2 


SEG 0184 


HI PHY LO PHY VRT AD KIPARG/ 


SR3/ 


MEMSYS/ 


RKMR3/ 


ZERROR TRYING TO GET FAILURE INFO/ 


“SECOND TIMEOUT OCCURRED GETTING DRIVE STATUS/ 


SD eee 


CZR6QB0 RK& OR CPT PROG MACY11 30(104%6) O2-DEC-77 11:48 PAGE 186 SEQ 0185 
CZR6QB.Pi1 02-DEC-77 10:46 TRAP TABLE 


“1 DHB00: .ASCIZ /NUMBER OF RETRIES:/ 
SERRPC , ORIVE ,ERRCOM, SREGO, SREG1 , SREG2, SREG3 


SRE ee aRE GE. Srecz, SREG10, SREG11,SREG12,$REG13 


SReGie: SREGI3, SREG20 , SREG21 , SREG22 , SREG23, SREG2Y, SREG2S 


= 
88 8 & 


SREG6 , SREG7 
sReciO® SREG11, SREG12, SREG13, SREG14, SREGIS, SREGIG 





LLacepeceasasscss tanta 


1 
1216 
aw © {NUMBER OF COL, FOR OR FIRST HOR 
I ade B.. Ean 
Ee =e Be ie 


SLLLLLP 
BITRE 
ne 
ERE 
be 
g 
% 





pdSoo 
000 BYTE 0,0 
94 : . 
35 pFO2 - WOR ? - 
44 "BYT Balou 
052446 051005 ’ DHioe 
04 ay ‘Hoe 2,0 
ef os: 7 WO} 
4 “BYT 
051110 ‘WORD OH201 
gene 007 000 .BYTE 249 
9510 4 051472 000 “Bore 5° 
9511 051214 BORD BaSo3 
a51¢ 052470 010 000 ‘BYTE 10,0 
9514 72 000010 DFO3: . 10 
9515 74 900 000 "BYTE 0,0 
9516 052476 050716 ‘WORD DAIO1 
9517 00 007 000 ‘BYTE 7,0 


CZR6QB80 RKE DR CPT 


CZ2R60B.P1i1 


Ei 


ESAs ka Sa Ese ee MRC 


Be 


il 
Wre-oO 











O2-DEC-77 1 


a 


sebamecee 


8 8888888 888 §8sess * 


5 


oF 


< 
— 


Oo 
Oo 
Oo 


ooo 


1 30 


DFO4: 


DFOS: 


DF 10: 


wWOEw 
383338 
4340-4 
mom 


ret 


2 


22 Oo 


oO 
< 
4 
im 
ne 


S385 
ADA 
mom 


252 
40-4 
m 


(1046) sae G4 11:48 PAGE 187 
TRAP TABLE 


102 
0 


PPPP 


a 
a 
rs) 


= 
° 


nm On 
Store 
Re 


Fok 
g 2 


fo 


oie 
Oo 
Cv 


NOON 
xm 
oro 
oO 
ro 


a es 


FS 
O° Oo o oO 
naerten 
- — 


x= = 
O--Or--O 

oO 

- 


MONOOW WOO 
=) 
fu 


;"THE FOLLOWING REG DATA MB INCORRECT” 


;OPI, HVRC 


SEQ C186 


F1S 


11:48 PAGE 188 


SEQ 0187 


CZR6QB0 RK& DR CPT PROG MACY11 30( 1046) 
O2-DEC-77 10:46 


CZR60B.P11 


doe Gabe 
Seletes 


Hear 


ala 


i=) 


88 8888 888888 


pease Goatat 
ca Ee 


PERRRRARRRA RRR RRR RES 


A UU 


KKRKAKRAAAAAL 


_ 


oO 
o- 


woar 


>S>S>SG>S>S> 
203202032030 


eee 


oO 


oo 838 a 
Se a 
Wa 


RROR 


;FORMAT FOR 2ND LEVEL & 
!IN OPERATION INCOMPLETE ERROR 


000 
000 
000 
000 
000 
ooo 
000 
000 
000 
000 


cerry 
Matt 


a 
™ aoc 
crcccrerrnrr herrea 


CZR6QB0 RK6 OR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 189 SEQ 0188 
CZR60B.P11 O2-DEC-77 10:46 TRAP TABLE 


9630 3020 000 .BYTE 7,0 
0S1 WO 02 
330 000 “Byt 
9634 000 BYTE 0 
0S1 WO 01 
3636 000 1 i aA 
gE 051177 ; WO} DH202 
000 BYT 
os2 03 
000 BYT 
9641 050637 WORD OHSO1 
964, 000 BYTE 0,0 
964 051214 “WORD OH203 
ge44 3054 010 000 ‘BYTE 10,0 
96 OFi6: .WO 1 
3647 5 BNO 000 "BYT : rn) 
48 050716 WOR DH101 
364 053064 051002 000 “BYTE 710 
96 Be30ee 653 000 ‘BYTE 0 
96 72 OS0SS7 - WOR 00 
74 0 000 "BYT 
4 28 051 ih ; 01 
S 1 000 ‘BYT 
9656 95310¢ 051177 iW DHe02 
9657 104 002 000 *BYT 2,0 
96 1 0s2135 We bASO2 
11 00 000 *“BYT 
lle oS063 : DHSO1 
9661 053114 000 000 ‘BYTE 0,0 
9662 053116 051214 “WORD OH203 
3663 0531 10 000 ‘BYTE 10,0 
966 122 oo00 DF17: .WORD SS 
96 pe3t86 ea 000 “BYTE 0,0 
96 é pe31 5B osoris 000 Bone bAiO1 
966 pest as 051905 a” pHio2 
9670 053134 002 000 ‘BYTE 2,0 
9671 3136 oS2063 "WORD OA711 
ere Be osi%ee © °° Hon Bifoe 
3678 pestis 002 000 BYT ora 
9676 053146 oo0002 DF20: .WORD 2 
ere BIE? ose = ‘Hon Belo 
3623 bested Bs 000 BYT on 
9681 3156 oo0002 DF21: .WORD 2 
9682 Besiep 000 000 "BYTE 6,0 
9683 053162 051514 "WORD OH60S51 
9684 053164 03 000 ‘BYTE 3,0 


QB0 RK& DR CPT PROG MACY11 30( 1046) 


CZRE 
CZR60B.P11 O2-DEC-77 10:46 


Piatt atatatatat att 
BIFR Low Sow Ie 


eee Dv Dv ely eDeelve Ive Wve lv elve) 
NNNNNN 

es Re ee be be he 
WOON CWE 


NNNNN 


ne 


4 
9741 OS33e6 


O2-DEC-77 11:48 PAGE 190 
TRAP TABLE 


OF 2e: . WORD 


DF es: . WOR 


DF 30: . WORD 


DF31: - WORD 
-BYT 


OOOO Or-0 
SFRRES 


BN BO QO 


-OoOTM 


obo 
=} 
=) 


Oo 


Oo 


Ww 


—-Onmy NO vue 
oo 


Po 


= 
=O 


Yo=o 
RoR 


MOoOOONONDOW 


= 
ONO 


Seo 
oO oO 
uo = 


9o00N0 
=_ 
o 
Ta 


= 
ONONOr-Or-O 


Oo 
<= 


OnooWw £ 
x xX 
-Or--O 
oo 

wu 





SEQ 0189 


CZR6GB0 RK& DR CPT PRO 
CZR6QB.P11 O0e-DEC-7 
FS EH sell 
5 ee ie 
oe iis Es 
974 

35 OS3342 000400 
gel ie bee 
3783 4364 

Be ine Ss 
gee ter pil 






sesseiaes 
o 


14 


SRRBSRREER 
eae <= + +3 
Sata aA 


a 
yo oe 
NN 
- 


4716 
17e4 
0S47 





Re 


z 


£ 


Lomlend 
Y= 


MACY11 30( 1046) Pag of 
10:46 TRAP TABLE 
000 . BYTE 
. WORD 
ooo .BYTE 
- WORD 
000 -BYTE 
RWBUF: .BLKW 
02004 QO NOTMSG: .ASCII 
0200 0040 
7516 
Bt sose 
ete pe0i 3k -ASCII 
Bvuis ebres 
05447 Bugdag 
447 6440 
124 e502 
poekie 051105 
iSOS O006Se4 
4 O04 -ASCIT 
ies Fees 
2040 
104 
a ies 
1 006472 
1505 -ASCII 
ie gees 
1 2105 
34 Bilels -ASCIT 
4 2 
eke 
11 1505 -ASCITI 
11 2040 
oS. 040 
104 
1 404 
047S0e 
Osi46s tates -ASCIT 
4 Beeios 
peougs -ASCIT 
2515 nat yeh 
Bssrie Gerlss 
OSei01 O4eSe4 
047117 O40440O 
047516 047127 


7 11:48 PAGE 191 


115 


BA706 

bA710 

3,0 

es6. ;READ/WRITE DATA BUFFER 
<15><«12>7 #e% NOTE ###7¢15><12><12> 


“ONLY ALL RKOG OR ALL RKO7’S MUST BE UNDER TEST/<15><12>< 12> 


7ALL DRIVES TO BE TESTED MUST HAVE :7<15><12><12> 


71. DESIRED PORT SELECTED’<15><12> 


72. WRITE LOCK DISABLED/<15>< 12> 


“DRIVES NOT TO BE TESTED MUST HAVE BOTH/’<15>< 12> 


“PORTS DE-SELECTED. 7<15>< 12> 


“THE CARTRIDGE MUST BE FORMATTED ON A KNOWN GOOD’<15><12> 


SEQ 0190 


SEG 0191 


J15 


11:48 PAGE 192 


O02-DEC-77 


TRAP TABLE 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) 
O2-DEC-77 10:46 


CZ2R608.P11 


/WELL-ALIGNED DRIVE, PRIOR TO TESTING. 7<15><12> 
/THE COMPLETE RUN TIME IS 8-10 MIN. PER DRIVE. 7<15><12> 
“TO ABORT TESTING, TYPE CONTROL-C (tC).7¢15><12><12> 


ea oa N 
a) o a) 
w w w 
a re 4 re 





Qa 
= 
ed 
G Stato. PYeanewO—g log 
8 wzazus & Pe atiteatt= 
& =—=0M 
“M2 
ie Dacranes 
z fattest 
Lt Sree = 
O° eas et ining =) 
oO 
oO 
Oo 
puare BxeTYOLTY 
aE ed tt 
ee LOLALOLOLOLOLNLNLWn 
RUN 
FF seesgeneeare anaes SUNT Noe oe 
RRSTAA ARIS oD a maga qe 








CZR6QB0 Rk& DOR CPT PROG MACY11 30( 1046) 
CZR6QB.P11 Oe-DEC-77 10:46 
ABASE = 177440 14978 #81593 16 
000200 3e448 3838 4939 
6887 6902 693 
1333 
4 93 
S6ee 6685 
| AC 1$93 1608 
1593 
aoe = 1333 
10= 1$93 
ADDW1 1= 1593 
apo: BE 
13= 159 
spo e= BE 
= 
| ADDLE = 1593 
ADDWS = 1593 
ADDWY = 1592 
apes Be 
a 
ADDHE 5 1593 
EE Be 
= 
VCT= 1293 1599 
VM = 14988 8§=1593 1635 
ADSCOR 4116 4186 4248 
AENV. = 1$93 1604 
AENVM = 1$93 1605 
a rroae 1593 2) 
ALLS 3594 6178 3630 
ALLSY 36278 711 
ALLSY, 36678 3677 
ALL SY 36668 3814 
AL 3839 4940 6724 
34208 4999 
159 ta 
159 16 
1593 1628 
1593 1631 
1593 1615 
1593 1623 
1593 1626 
1593 1629 
1593 1601 
1593 1602 
1593 1595 
1593 1616 
1593 1624 
1593 1627 
1593 s550 
33008 3702 
e308 4991 6358 
1593 1598 
1593 
8265 89108 
APTENV= 000001 8258 8704 8866 


O2-DEC-77 11:48 PAGE 194 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3600 
6635 6640 6723 6748 6845S 68ss 


45358 
3631 3674 3704 3705 3722 50S8 


6868 68758 


69e5 


890848 


6860 


5130 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 195 SEG 0193 
CZR60B.P11 O2-DEC-77 10:46 CROSS REFERENCE TABLE -- USER SYMBOLS 
APTSIZ= 000200 g353 89078 _ 
PSKsvs Be aN geo e968 9303 37198 3723 3724 3726 3731 3742 S062 5134 S811 
32818 S4Be 
AS y 1$3, 06 
4 639 Ols 
ia TN= 189 1s9 
AUNIT = 159 1600 
AUSWR = 000000 1593 1607 
AVECTI= 0 14968 189 1632 35939 
AVECTe= 00 1S ios 
AV 4124 41 4257 45778 
A.ABNL 003056 28438 38428 384S* 4869% 4943% 4948 S802 S984 6001# 6010 6194 6209# 6611* 
6876# 79% v893% 6896 6899% 7826 
a Sonn po3pe9 cause 4870 6612 6880 7830 
BADDRY 011303 a7, 13a 1388 . YQUB*e 4951 49S2% 4953 496S* 4966* 4967 4973# 4974 
* 
BADSEC= 1000 3 4 5 5911 6274 6282 6818 6930 
012036 34798 4993 
BAI = 000020 25218 7395 
| BAIB = 00 24978 
1 = 4 00 498% 
=} aes 601Ss 
Ky 7 4738 
| BGNRTY 3360 bese = egos £825 
Ito = 000001 basa" Sito 2511 2537 ess3 2707 28sl 2944 3794 SEE S695 $735 S922 
IT00 = 000001 14188 1428 
IT01 = oo000e 14178 1427 
+106 = 000004 14168 1426 
+8 = 000010 14158 1425 
ITO4 = 000020 1414# 1424 
tiee = 900040 14138 1423 
TO& = 000100 l4les 1422 
IT07 = 0200 14118 1421 
ITos = 000400 14108 1420 SS37 
ie = 001000 juste sot 8714 pm as - 923 gus 
= 
ttto = need Let s3 $233 8208 3 S293 261 262 2641 2720 2861 3247 6527 
IT11 = oo4000 14078 Seg 2ess1 2570 2586 2600 2613 2628 2642 2721 3248 
ITle = 010000 eu a oe5a esse 2587 2601 2614 2615S 2629 2643 2722 3249 6409 
IT13 = 020000 14058 2503 2531 2ss3 2571 2588 2602 2616 2630 2644 2723 8639 
IT14 = 040000 14048 2S04 eae 2SS4 S7 S283 260 2617 263 64S §2e0 eae gse4 
IT1S = 100000 14038 2505 2533 ss 2573 ess 2650 272 863 250 
He: Ses Mat ge ge gl Bl Pe oe i Ee 
ITY : 000020 bora" 2514 e521 S43 2563 2564 2579 e621 2635 e711 esss 2348 3241 
BITS = OOO0040 i3ev8 $5 Sans 2eS44 e565 2580 25394 2607 2622 2636 2712 esse 3242 
BIT& = 000100 14228 2495 2524 2S4S 2566 2581 2es95 2608 2623 2637 2713 2858 3243 
4746 47793 5762 5343 


CZR6QB0 RK& OR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 196 
CZR608.Pi1 O02-DEC-77 10:46 CROSS REFERENCE TABLE -- USER SYMBOLS 


BIT7 = 000200 14218 2496 2eSes eS46 ese? 2568 esse 
3 eS26 2547 2S48 2569 2583 


BITS = o00400 ace 
BITS = 001000 a » 8954 2527 2549 2584 2598 2611 
SH 012137 Sasie = Sae4 
a GusiZ ce DSR, 
VEC= 4 Ad r ] 
= do dee 7260 7426 7662 
BSERR = 388 6197 6811 6825 6923 
BSFACT O04 4s 6031 65 
Burro. poeei5 38 Je Ge A 3661 
3574 863848, 988. 9823, 884 
We22—CtCi‘wBPE CSCO Si23. S135 ? 
5503 
PRT o0s4e2 
- BAIg= lis 7 
| B. = t a 7 
—=BlépT = a § 7643 7989 
|B CFMT= go0g20 25148 508 «=Cs«S4#@0.-s«S973©2=Cs«w7033—Sté«é«726H43 
| CART 117 34658 5470 
CCLR = 2506 
te 3 Oe ae ee es 
Ss =~ < 
| cFnr = 09 e s $oc2 $888 588 25 6 gas 
KMEN i # 
1¢ 124 58908 
CKMO 1 5889s S8928 
CKSCOR Oe3220 5272 
CLEAR = 000105 D4ESe 
CLR = 0 25228 
270 48744 2=s«4eS28 
MDTO = 9 13u 66 6988 42s «7159 
NSfRT BT 36 i 35208 6914 
CNTRDY 01153 34408 5816 
CNTRLC 012102 34eSe 4474S 5355 
CNTRLG 012126 a4es8 47598373 
ENTRLG BiSts? 3uso8 298? 
CNTRLZ 012107 aye 4751 S361 ; 
Chava” SOE Sit Gh ik. THB. rs 
COMSTR 005176 29578 6329 6338 6942 
CONCLR= 000176 24838 8091 
CONERR 031000 2B44 4908 
R= 000 13438 4 gai 
REE = Laate 14 
RTSER Oey 94 53s 
CREL 1213 34908 6396 6408 6432 
CTLOUT OP5564 4338 57898 6310 
€TO. = o04000 25008 669 7658 


es36 
2597 
2626 


2609 
2610 
2640 


582 


S406 


S407 


8020 


SEQ 0194 
2638 2715 
2639 2716 
2860 3246 
714 727 
W3b4. 9583 
S4li# S489 


8108 


3244 
2859 
5084 


4383s 


5493 


ZR6QB0 
G6. 


a0 00 


58 os 


BARBRA  RATGAMS 
43.5 


MORES Weaaeo 


rn eee 
WONT ULW 


BARA AARannn 


j=] 
rr 
Ue 


oo 

vn 
ww 
-—ON 


oO 
a fa 


DH100 


a 


RK& DR _ CPT PROG MACY11 30( 1046) 


Pil 02-DEC-77 10:46 


t- 


agce 
on Es 


rata 
WN 
rorore 


a 
8 
VERVE TTT 


are 
tuo" 


S3 


TAA RRO 


050716 
051005 
021063 

51046 


050857 


259 


ru 

Noo eats 
NOUUIO+-o 

“wo 


DDD DDD OD IORI T f 


OE ean on 
focrcoorcoevo 


OKWwul 
Dy FOO LOwMVoVVLe 


wWonwor 
WQWtWe 
ss 


78698 


O2-DEC-77 11:48 PAGE 
CROSS REFERENCE TABLE -- 
8029 8036 8039 
6192 

Boh2 27 7260 
S2 6132 6:57 
6876 6896 

3547 

6787 6836 6847 
5057 $129 

1670 1676 1718 
1706 17le 1724 
Ae isd 1850 

1 2060 2078 

2066 2072 95148 
9S388 

1874 1880 1886 
960148 

2048 969948 

S714% S896* S914* 
1668 1674 1680 
1746 1752 1758 
1824 1842 1848 
1914 1920 1926 
2010 2016 2058 
9688 

9488 9501 9516 
9690 9717 9728 
9490 9503 9518 
9692 9719 9730 
9696 

9505 9520 9594 


N1S 


197 
USER SYMBOLS 


8046 


7426 
6829 


1892 


97078 


9633 


80S0 


7662 
69e3 


1898 


96S2 


8067 


1904 


80893 


9485s 
1748 
1976 


95888 


8094 


1754 
1982 


8104 


1760 
1988 


SEQ 0195 


8113 


1766 
1994 


8126 


1772 
2000 


esses tess 









a] 









29000 


T 


. 




















tt 





BRYEAL OB0i46 


ORVOSC= 000040 


MACY11 30( 1046) 


. ve aly 10: 


atx 
PY 
eh 


its 


nts 
ar 


z 


uF 
“7 


50 


tip 
yt 
SURES TSHBKEREaAS 


Ff 


5658 
4 


4347 


rr) 
951 
334 


4696 


en 


94108 


4231# 
88S1# 
7420 


6491# 


4877 


4177 
S075 
024 


7562 


| B16 
CROSS REFERENCE TABLE =~ USER SYMBOLS 


36 9635 96S4 


9712 


4254s 


4472 


6957 


4922 


S469 


44778 


6960+* 


4951 


4478 
ssos 


SEQ 01% 


4965 4973 4996 5067# 


SEQ 0197 
4414 
4414e 

oa? 

1 
1 
1 


aa 

861 
3371 
94808 


40168 

TG vor 
7993 

He 

8s 

sa 

2113 


3735 
7880 
4005 
7384 
7894 
1984 
1849 
3385 
2053 
7662 


CROSS REFERENCE TABLE -- 
8034 
7386 
Fee 
1363 
1353 
152 
2047 
7426 


ai 
wee Hs ERE == EERE 


BS ceca tue Cea Se eree sh 


e301 

3625 

7284 
ts 73h, 
75, 

75 
3 

of 


O2-DEC-77 il: 


: Bins cup 

: eA: aT 
gaat 

BENOGeSe a Be oSauBeasS 2-8 


ht tt tt tt 


mr Rt nn nn NR NR Rt 








ey RK6 DOR CPT PROG MACY11 30( 1046) 
02-DEC-77 10:46 


; i ae Se 





D16 
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SEQ 0198 


cs SB Soe co a 
“nN 

ee | — tw 

o orCrcrqo ao o 


CROSS REFERENCE TABLE -- USER SYMBOLS 


BPO Soa ater SS eas eee 
PEA EOC U TT agg eee Neat ats PE pee re A 


IL rt th ah dd dd kk dk a dd dd ddd ddd dd dd ed ad dd ed YOU CU ULI) OD 


O2-DEC-77 10:46 





h De aNNUa tt aass RANA RET omERPCORES 
r FUT TEINS RRR ed Sess 





mr ay 
frac spchetano meine ima varneons peecene % 











EFREOB-Pil»  OS-DEC~?? 10:46,” CROSS REFERENCE TABLE =- USER SYMBOLS sap ta 
ERRCNT 


003135 a e 50138 619S# 6360# 6362 6365 6367# bedce 6606« 67778 682e8 
| 44 : Z BS 4723 4869 4948 s8de 6010 6017 6209 66048 6879 
REEnT It 4 : po 2325" gene" oaehe 356S* 98829 8830 88328 9883S 
ee 8 mai 722755 
Cont : S08 es2i, $683, S862, S632. SER 





94 4 6 S13 S17 
Ky $3 as 337% 7408 7308 $5235 Seo. 
ae *  610e% 8110% 8123 
T = OOC Sea 
= Of : 7. 7814 
ae Of r gh 7653 8048 
“sc T= JUL . ri 
oad +++ ~% 
Oar = iC ae 7264 74 
* = 8 
acres le : 7 aes 7540 7550 
FI 8 1 2 
Fie 78 ra 721 5739 S74S S906 S926 $932 
F NSEC r 4 7 743 747 208 930 334 
ab . : 17% 35 741 2 230 928 933 
= 
FORMAT ry 4 73 Sosex SO86* S461 ss393 5978 5998 6103 7034 
74 4 * 4648 
ba ,* 4 4 S491 
GNS = 8991 8994 839s 8996 8997 
= 34° 2 4928 
PK 3 70448 
T * 6206 
gt 4844" S374 5822 
T 5158 61728 
P ease 7382  g072« 
HOR: CT : 3cce Bo7ss Ores 
ree Rt 3570 
* 
TPRG 81 69108 6938 
+ a 4Se 43 
07; 497% # SSO7# Siss 7067 
HOL 7 4 SS0s* 3d # 7030 
HOL 41 411 41 4 S4ss* 5509*% 55178 
gt 4238 sSoo# S510% 55188 
HOL 4474 qu SSOl# SS51li# 55198 
HT = 13418 8314 
RC 488 471 6015 #4 2 7260 7426 7662 
seo gezee 471 5275 6197 6786 6923 7049 


_ SESE REE EEROOCO RRR TTT TTIMMMMMNNM — mmmemey 
$3 


3 
: 
2 


70 
pees 
ll 


Ce ee Le ee Dee ee el eee ee ee a) 
Derr TMM D = 
4AQOUMZ a 
3 4 
= a> Te 
uu 


oro) 
=4 
D 
+ 


D 
w 
“4 
=5 


oe 


2am 





DR C 
O2-DEC-77 


MACY11 30(104%6) 
10:46 
2ess0e 6735 
33. 3821 
Hes pres 
® 
1028 
4 
708 4742s 


NNN 
mG) 
N 


rae NNN 
ve) wW 
es 


NNN 

Fy 4 

NO £TM 
OTNDO 


O2-DEC-77 11:48 

4921 4959 S041 

7662 

6135 

256e 5 508? 
5 “ 

ee 

7386 346 7371 

3530 

7501 75108 

74148 

75368 7668 802s 

7312 7364 77478 

5385 

73118 7444 

7233% 7236 7607 

rare 7486 7528 

72788 

727 7304 Pa48 

78 7410 74 

754 7546 7553 

77848 8038 

5718 5903* 

6663 6760 6766 

8314 

SS618 

4089 4112 4161 

S496# SS06* SS14s 

S466 

3513% 3517* 3593 

4932 7224 7651 
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5113 6769 


137 
3489 


sii2 
3029" 


8093 

8017 

7904 oss* 
7 6388 
732 7 

744 Fase 

7588 75678 
6790 6796 

S039 5234 

$975 

3698 4017 

8026 


6799 


40793 
S4eS 


7630 


ray" 
Piet 


6900 


5240 


4415 


7606 


sues 


741 


7794 


73 


6958 


SOoss 


7670 


sae 
7584 


7801 
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50sS93 


SES 0200 
7988 7339 8065 
4325 48698 4920 


7623s 


7351 736 7368 
7494 7S sage 
5089 Sle7 


3222222222222222 
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c -Pll 02-DEC NCE TABLE -- 
SMSK= 17 77% 
WO «= 8 
ot al TSH 6201 
Sa aK igs S035* S036* so4e 
= 
MTCART se 4048 50338 
& 
D 460. 4668 83578 
Best at 
3 83398 
* 3508 
53 OB Sede 
yy 839 3968 
B36 008 
= 4 : 
ibs at 
= fe 
- Begs r 
= S4s 


4232 4234 4260 4277 4555S 


664 6652 7239 7317 


ree 


NE = ‘ 663 7254 7420 7660 
ce A Se 3846 4701% 44944# 4949 
NOCHK = 7i6e 7 7956 7397 8024 8042 
NO. $ oe68 354i 
Ropers ris rasa 

als 4768 1 
NORT 935e 4873% 6928 

RO 1418 7 4109 4333 4551 4585 
Neen te 
NO 313% 97508 
NOT 29398 3572 3575 
Nae 35168 dies 44 446s 4490 4445, 
OR 19@ 4169% dey 
Nak ae ee 44170 42 

sc 1868 13 * 4261 4S539% 4580 
NoaCRh 31898 44154e  4541«# 
NSSC 31928 4155  4S43# 
NT ov 34148 4968 
NXDRIV 34118 954 
NXF = so0/8 
ocYBIN Geer, icon 
OFFSET= 00 24698 507 4516 79339 
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4590 


8063 


4636 


4538 


4637 


8030 


8086 


4653 


4558 


80935 


$302 


8129 
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PSSCR1 


Paton 
= 
is RN 4 
| PATOO S66 
KT 003122 
VAL= 1 
|p = 
| Pp = 
PCSCRO 
| PCSCR1 73le 
| BCSCRe BB 
= 
pip = 85 
| PIRQ = f4a4g | 
PIRQVE= 240 
| PLOFST 005450 
/PMa —-OOSS04 
| POSC 752 
| POSCR Ole 
, POSC 7052 
| PRE 020774 
PRMBUF pisise 
PRMPSP lel 
PROMPT 17 
PRVCMD 1 
PRO = 
PRI = 0 
PR2 = 000100 
PR3 = 000140 
PRY os 2 
PRS = 00024 
PR6 = 300 
PR7 = 330 
ce 2 177 73 
PSCORO 751 
| 


r 


WWWOTU 
Ts | 
UNV) DUIDUTU OW WT 


OOWNUUIWI 
sens een 


WW 
neo 


4482 
4479# 


3693# 


02-DEC-77 
4501 4S09# 
4491 4499 
3634 
6754 7260 
6923 

464S# 
7164% 7274s 
4872 5015 
6610 6891 
3518 3779 
S688 S764 
S6S6 5690 
7244 7270 
4297 4556 
7660 
707 7’ 
ae ali 
4S86 
3946 4001 
6328 6577 
s0i8 6950 
oe, 
3258 geag9 
YS 
4S49 
4281 4S4S* 
4S47% 
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$313 
4S2e3e 4S94# 4600 


7426 7662 


4646% 4662 
7278 7294" 8 8=©67360% 


6162 6171 6875S 
6895 6985S 
3781 4047" S091 


$705 
7438 7463 7881# 


4591 


5758 S86S $893 
4O46 4080 4152 


7023 


sug tage 7180 


4581 


$303 


7388 
689S# 


S94S 


4326 


7875 


PRVVVY VVvvvVD 


v 
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PSSCRe 
PSW = 


a 


-Oe~ 
On 


geeees 
HO 
Z-o- 
ikowen 


P.CYLN= 


VvVVTVD VUUU 


v 
= 
oO 
4D 
u 


PeSTRT 
GNEWSW= 





000016 


000007 
000020 
ooo00e 


Oe-DEC- 


rls 30( 1046) 
10:46 


41S58%  4S49s 
6950# #7023 
83 a 

% 3536 
6564 7488 


6563 7519% 
S68 7474 
6570 7790% 
6572 7 
the 7 # 
ae 3841 
tice 
Saue | 78e4 
* 4895 
7514 
7 x 7389% 
*  806S% 
4879"  48s80* 
80s93 807. 
3 ‘ 
7747% x 
sve avhes 
4175S ps * 


334 Zatd 
7667% 7819% 
3 8086 
3910 3915 
007 6079 
926 3927 
Ht 6137% 
391 4096 
65S1 7976 
6561 7518 
35148 
35138 
35178 


T16 


ores 
papas 


chose” REFERENCE TABLE = © OSeR SYMBOLS 


7941# 
7480 


S467# 


73942 
74968 


Se4e# 


7497 


S983* 


78108 


S995 


7047 


8018# 


6148s 


7048 


SES 0203 


6SS6 


7079 


71S9% 
75408 
80e4 
5990 
S466# 
6139% 


7975 


7085S 


Jie 
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g.INIT= 7248 
RCDASH ae 
= 
RCLREGs ce 6678 6683 6728 6733 6738 6743 6780 
LHOs 5360. 220, 80693 
= 
ROCHRS 35 5763 3721 4813 O4s 5117 53448 $483 
RODATA= 24718 451 4983 S464 974 
Bee ae :; 
Baa: pcs Se ee 
= 
peers ae ae ee ee 
RECAL = 4688 4981 68 794 
| RECODE esb38 38 *  4716# a7i * 44724" Y 4991 5013* 
61 4a ex 6 6368* 6607# 08 6635* 
TH ecree 6733% 6738* 6743% G74RS 6756% o2e0 
81i# * 6829 6832e% 6845* 6846"  6855« 
6902* 6923 6925* 6930 6937%  6958# 
REDBSF peBsHo 8 o7ue 
REDOFS 017300 Gil 4 4247 4462 8 
REISSU 14 8 * 
EPP Bli4t Woes 
REPSUP 31864 36 4937 5897 5992 65418 6613 
RESLTS 010717 33618 4330% 4331* 4332 
RESREG= 104410 4525 4 4618 4678 5193 5219 S254 5316 
5774 5847 873 5910 5960 6067 609 6152 
6953 7 036 7097 8432 8484 89968 
RETAIL OS37 56 beri, 689369578 
| RE Nit 033754 4704 47 6019 6612 69608 
RKASOF= 00001 4498 6979 7300 7370 g 7705 7753 7942% 
|- KBR = 900004 eae 697. 7701 7749 7975% 
pr . 26358 32 * 36008 374% 3749% 4871 6768 6798 
RKCS1 = 000000 44 * £ 7b# 77 9x 080 5113 
c 02 : 3628 sobs 3059 ee 3 ? 740S# 
geue ge70x 7698 7959% 7961 sooo s80l2* 98014 
RKCS2 = 000010 ena ® * 3031 ages 4932 6974 7223 7383 
RKDA = OO0006 C4458 976 7400% #7702 7750 7936* 7978* #g080« 
RKDB s gogge4 e 28 9 4 6770 6771 6772 6800 
RKDCYL= e4S18 399% 77 7755 793S* 7977% 98079# 
DS = OO001 24478 p88 6980 7248 7703 7 
RKECPT= 0003 Suton 9313 Fett 
KER = 00001 24488 6981 7257 7423 7704 7752 
MR1 = 000026 24538 7391% #7470" #7707 7784* 7791% 7798% 7805s 
RKMRe = 000034 24548 7708 018 
RKMR3 = 36 245S# 7709 8019 
RKPAT = 000032 24588 
RKPOS = 000030 24568 





6889 


S449 
6176 
7367 
6884 
6769% 
7414 
8044s 
7641% 


6802 


7906# 


S726 $91 
6661 666 
6780* 67864 
6865* 6870 
7049 
5571 S621 
6275 634S 
6939 6971 
773 $733" 
S96# $97 
.8066#  s088* 
7699 7747 
7379 7380 


SES 0204 


61 
6678 
730 

81 


5668 
6477 


$725 
6S9e 
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RKPR 2841s 
RKPRTY Bu77e9 $2698 
RKVAOR 77 3gebSs 
RKVEC 2840 


Ree, g= Ou0010 
RoTeLD esGee 


“R:cont Bub260 


R.NORM O40166 
' SAVPRS OOS4S4 
| SAVREG= 104407 
WROD 3160 
SCLR = 000040 
02131 
SCOPER= 104411 
ee 
SCRACH Oy 
SCRLST oOOoSsS 
SECLST 006572 
SEEK = 000117 
SELORV= 000101 
SELF 11¢ 
SERNM 4 
SETTUP o4e 
26rTas 11775 
Tes Bid ce 
SPAC 12150 
SPAC isius 
SPAC 12146 
SPACEY 12145 
SPACE6 012143 
SPAR = Oe0000 
SPOLSS= 000020 
SRHTBS 027700 
SRPASS 010307 
RTSPL= lll 
STACK = ll 
STALL Oe44e0 
STALL 005432 
STOLS 6552 


SWR 001140 


02-DEC-77 
360S* 3756 
O1*# 02s 
700 748 
4252 Ove 
4094 163 
5328 7409" 
36 
5e32 8298 
6170 
4577 4630 
S8s8 S862 
6430 6S42 
3683* 3688 
5728 S734 
3661# #3667 
S291 
4176 4471 
4934 8062 
S471 
3944 39939 
6046 6052 
7658 
3780 4019 
SO11* s0le2 
SS4Y4 
4013 
4023 4Y4O9# 
4875 S016 
3734 3736 
61618 6207 
3546 3548 


3772% 


4020 
50S4 


3SS4% 


K16 
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71Se 


3754 


5061 


7022 
4008 


3561 


7876 


$126 


8100 
4405 


4544 


$133 


S095 


4324 


6449 


$803 


$537 


S387% 
3852 


SClls 


64S4 


8786 


$735 


SEG 0205S 


SS66 S643 S632 


7557 7602 7654 


5589 S637 S&82 
6161 6169 be64 
8399S 


$388 5398* 5$399# 


6469 


S762 $922 5949 


SEQ 0206 


L16 
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REFERENCE 


SReap-Pil”  OS-DeC@?? ld:4e CROSS. 


C 
Cc 


8840 


ese4 


@ 

go 

Tr 

m4 

t 

@ 

— 

— 

n 

oa 

te 

oo Oo 

‘aD in 

or w 
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aD + 

or i 

nT ao oa cua 

or tu @ =) 
Tro wo Ps ow 

wor ™ ~ nr 

orn. Cor mu cw = mow wo 

_~ 

owry Ayah ateatatat ates @ tf wrr. or 
TWO TFTOMMNMMMMMNNM ™ wo Omr om 

DOT ttt tt tt ttt wo m TRN RN 
RVSKCSKVSVVKSKSKCVSKSSKTKTKTKSKRASKSTKTAHARAHAKKRAVKRRKHABSABVASKSKRAKAKSAVVRVARVRwVswAwAc 2 
US CON OUT MU=—TOTOh OWNOr ag PDO hes UP eR Ros oe 

BRB SRBRVE BKRHAKKROO oO DRBspsopsnones Sw Ae RS 

rTy7T MMMM MMMMMMM wa SODDDONOVNDONDDDDDNDUNNDONNWNWD 
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se Se =O=G0U0 
Sose09 


: i wee Feu ao 
RRR sahiciiiana tcl 


ecm 
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4 7 
308g ee sige 2768 5185 S205 S217 5237 5289 
+ . 
set BLS asra 
14408 3576 3577% 
6493 660 69698 
14418 
239698 
14398 aPans 3534 8785* 
43 4 a 
33978 4 4 4339 
4101 451 61908 
14348 
199 sarge x 3899% 4002 4081 4327% 4399 5789 Ssols# 
TSTTYP 46 gabe Besos y & 4 a 4174 4 & 4194 4 x 4 F 3 4YYHBY 4483 
fese’ dese’ cb9g* dbege darees gh82* = fad* 2679" 538 
TST1 014346 3783 38718 4011 
TST1O 016016 42°58 
TSTll 016434 43228 
14376 Rice 
TST 11973 # 
TSTY 1476 rr % 
TSTs 15146 8s 4021 40428 4408 
TST6 015204 40768 
TST7 015519 41488 
TWOTOS= 002000 32478 6390 
TYPBSF 027030 5097 60298 
ees = Baan? g2918 
P = 104401 S74 3617 3628 3637 3638 3673 3679 3687 3688 3634 
3715 3720 3729 3730 3741 747 3752 3761 3773 3°75 3776 
4020 4023 4332 4339 4343 4348 4356 4359 4361 4365 4370 
4387 4392 4397 4410 4413 474S 4751 4755 4759 4761 4762 


4 4 444 4 44 
<< w wmumw DIVO eee 8 © @® © & © & © & 
Oo oat at zx $ 
mint 29 se288 ~ 
3 R024 
8089 
WUT) 


SEQ 0207 


4536 


4553 





Rese RK& OR os-5 


Pll 


T RR O30 
TYPERS 00313 
| TYPOC = 

TYPON = 


TYPRUN Gide0s 


TyPSYS 0077Se 


T.ASOF 003024 
T.BA 003016 
T.CS1 003010 
T.cS2 003012 
T.DA 003020 
1.28 003044 
T.0S 603030 
T.ER 
T.MR1 
1S 3034 
T.MR 3036 
| T.PA 
T.POS 
T.WOR 3014 
,. eke 10 
= 
ono= 000107 
a: 
= 
VFHOSW= 000002 


: 
8 


E 


BEEEE 
+; 
aa 
85 


3 


ae 
ee 
R588 


x 


He 
. 
sizes 
= 


5555 
2 

of 

8 


sos 
x 
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MACY11 30(1046) 


opas 


-DEC-77 
chose REF 
4823 4847 
4 5051 
$392 
S481 S482 
60 6056 
6419 6422 
6464 6469 
3906 3949 
60SS 6418 
898g 
5115 
7301 7325 
7368 
7701% 
72e97% 7298 
7S51S* 7516 
774S% 7746 
7224 7239 
7 ah 7660 
v % 
7706* 
7249 24 
7260 7423 
7343 7479 
73 7474 
7700 
7306 
6650 7239 
7254 7420 
7254 7420 
S987 6002 
6923 
S6ss 5717 
7260 7426 
4088 4179 
3961 3974 
7979 


4953 


7496 


7709% 


7317 


7660 


7660 
6004 


S864 


S84s 


52338 


BOl 


ERENCE TABLE =~ USER SYMBOLS 


49S4 4967 
aiid ll 
40S 40 
S490 S81 
396 639 
6424 6425 
6472 8278 
4880 4923 
6431 451 
7371 7450 
732ee% 7355% 
75S1% 7597 
7793% 7800 
7254 7283 
7523 7662 
7538 7560 
77930 7797 
7660 8030 
6018 
5892 5902 
7983 


4968 4975 4976 
5116 Sle3 ais) 
S408 S410 428 
S816 603 603. 
6398 640, 640 
6426 6429 6432 
8ses 8s30 8665 
4989 S49S* Ssos* 
89ese 

74S1 74S7 7488 
7357 7363 7392 
7398 7638 764e% 
7807 7961 S62 
7383 7384 7420 
7704 

7708 7789 7736 
7804 7811 7812 
6091% 6131 6164 





7803 


616S* 


SEQ 0208 
4998 4939 
$361 $367 
S448 5470 
6035S 6041 
6411 641le 
6435 6449 
8702 8787 
7530 75S4 
7416 7446 
764S 7649 
7$17 7639% 
7810 


EEE EEEEL 
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WRTLOK 011347 34178 
WRTSEC 770 Se46 
W.ORV 003124 H 
-MIL 8 
nine weet “H 
.MTIM 3066 7% 
Te 003210 By 
. 5ee: 
. = 000200 27158 
Caan 
. 74 38 
1 14 
SASTA = RHEEERE UJ 8888 
yc So02 gss3 
1vA 756 88578 
TY 764 3 
Mes ll 1S238 
i4aq i 
sige 15188 
SBODAT apts 12608 
fo. te eae, 
K HHEHRE LU 
Soni". S008 ieee 
; igi 
scme = 000100 12838 
Ear 
' $CM3 = OOOO4O 1 8 
SCM4 = 16 4H 
stg aati? eres 
ear ie ioe 
ba82 
8314 
SDBLK 044072 8631 
74 3473 
4 By 
VL 4 
vc | 15998 
VM 1406 16358 
017274 4437 
SOTBL O62 
SE ‘ 17een 1389 
SEN is ibis 
OP 017220 44308 
SEOPCT 017242 3537% 


02-DEC-77 


726 . 
7947 
8115S 


COl 
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7295* 
7950 


8866 
3791 


7347% 
7971% 


8830 
3804 


7362% 7375% 7389% 7437% 7S504# 
8023*% Ss8041* 
alge 7361% 73748  #+$(7390% 7436% 
8 * 
3538 
15438 15448 154S#e 15468 15478 
15568 15578 15588 15598 15608 
12638 15708 

438 15448 154Se 15468 1S478 
1SS68 S578 1SS8# 15598 15608 
15698 15708 
15758 15768 15778 15788 15798 


eube 


eu7§ «= ode B4BE UBB 


4955 8260 8265S 8868 


7513% 


7503 


1548s 
1S618 


15488 


15618 


15808 


44s 
464 


75428 


7512 


15498 
1S628 


15498 
1S6e8 


15818 


Bu? 


7564 


7541 


1$S08 
15638 


15S08 
15638 


15828 


8278 
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SERFLG 110 15098 8689% 98726 g80e2 8816 8838 gs44*  98as4 
RMAX At ae S at gsso* s88s4 
FRC iti be * 8697% 8698 8726 9469 
RITE OOljie isise Besse 87 
ee 
SSCP BOL aie 12e4e se3as 871 8719 8726 8849* 
TABL 001350 16038 
SETEND 001410 1495 16368 
ATAL 368 x 
FLG ® * geese 897% 8905s 
LL il 4s 14 
L 11 15338 8314 
1120 15178 
T 001124 15198 
S$GET4Y2 017254 44418 
TSWR= £#eee% U 8393 
= 1317 
Thue : egos 223 8228* 82338 
; 4 Bisex 8198s 
| SICNT 001104 15108 
Tene itis eh 8 98* 8706 8726 : 
FE 143¢ 15888 14 8926 
FLG S221 689e* 8904s 
SLONUM 042352 35914 SoH0 8214 B27] | gee? 82348 
mee feiss seit Bef2 Bde" Ble BSG. BBE 
SMADR2 1366 16258 
SMADR3S 001372 16288 
001376 16318 
SMAIL 001330 143k 495 isaue 3558 3872 3895 3943 3998 4043 4077 4149 4226 4323 
SMAMS1 001360 16158 
SMAMS2 001364 16238 
001370 16268 
4 001374 16298 
001092 14918 
SIF LG 045220 88S8% 8864 899% 89038 
Ww =O44441 87678 
SMSGAD 001344 16018 8874* 8877 
SMSGLG 001346 16028 8879% 
SusGry 901330 15938 8872 gss0* 8892 8896* 
4430 87658 
SMTYP1 1361 16168 
SMTYP2 1365 16248 
SMTYP3 1371 16278 
shu L b01159 12325 8285 8314 
SNWTST= 000001 38268 3861 38828 3884 39338 3935 39788 3980 40298 4031 4yOS2# 4OS4 41298 
4131 41388 420 43028 4304 
OCNT ouzb5e gagee gSal* 604s 
OCTYL 0431 431 qi 4448 
SOMODE 043654 85S7% 8561" 8566 e569* e8580x 86068 


EOl 
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SOVER O44742 88eS 8843 8ssls 
sores 1336 ® 3958% 4433% 44434* 4450 
serait ADy> 14938 
T 4S 8780% 8781# 987908 
Srine Bes an ee 
, SQUE 13 1S868 3638 3715 3730 3776 4794 4823 s0S2 5124 5408 S490 8314 8726 
SRAND Bicsee SS 82108 
HR 4276 87428 
C= BREREE agss 
| SROLIN= ##eeee U 8933s 
T= #eeee% U 89 
| = 87638 
GAD 1160 15368 
HER RUE tess c3 
G10 OOl bags 3,45" od y 5718 S749% 57S2 S901* 590e*% 5903 S936* $939 6770# 6800* 
| SREG11 001204 15478 $750% $937% 6771% $.6801% 6840" 9473 9481 
areas 001206 15488 $5751% S$938% 6772% #680e% 6833% 6835* 9473 9481 
| Best gpisis 18498 753% S7S5S* S757 S758 SS40# SOHe#R SS44s SS4S# 9473 9481 
14 lele izeve ra S7S4* S756% 5939% S941% S943*% 9476 9481 
G1S 001214 15518 759% S760*% SS46% 5S947% £9476 9481 
S18 091216 15See8 9477 
Df isp ten # 9477 
D011 15408 9469 
001222 15S4e 9477 
01 Se 15558 9477 
001 15S68 9477 
Ge3 001230 1$S7# 9477 
| Ge4 1232 1SS88 9477 
Ges 1234 1SS98 77 
| 1236 1S608 6416 6576 
SRE 1240 15618 
| SRE 001170 1S418 9469 
| SRE o01e4%42 1S6e8 
| SRE 1244 15638 
SRE 1246 15648 
SRE 1250 15658 
SRE 0012S2 15668 
G 001254 15678 
G BO lee 15688 6555S 7 
sree’ Goltz a nee 
SREGS 001174 £a338 Seay 73} rs es aaa" 505 g* 3a58 3035" 6364% 636S5# 6552 6934 6935+* 
peteances emails ee a eS Ce 2 ill 
SREG7 001200 1S4Se S291 S733% 743 S747% S$92e0% $930 S934* 7046 7047# 7051 70S4# 70S8*# 
7060% 7092% 709% 096* 9473 9480 
| SRESRE o4S262 BS44¢ 
REA = £HRHHE U 97 
‘BGR Bises: at iit, 
| SSETUP= 000037 35068 $3528 3529 3531 3533 3535 3537 3538 3540 4432 8689 9714 8721 


| 8731 8769 8824 


FOL 
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CZ2R608.P11 02-DEC-77 CROSS REFERENCE TABLE -- USER SYMBOLS 
SsUPRs Arcee? 35068 
3370 4364 4391 S447 S474 85178 
ae: fut, fey So 
= 
SSWR = 163000 13178 13198 1324 13eS 1326 1327 1328 
424i 3872 3895S 3943 2998 4043 4077 
4449 4450 8680 8681 8662 8683 8684 
8818 8819 8820 8824 8836 8838 8839 
_ SSWREG 001352 16068 3561 
| SSWRMK= OO00000 
| ar TN gal sat 18978 38728 * 3943% * 4O43% 4077% 
T 1146 1Seg98 = 47. 4777% 729 8746 2 
TKS gol ies 1Ses8e 4746% 4779% 8729 8744 8750 
TMPO 1262 1$708 
TMP 1 paises 15718 622e9% * 6238 
TMP 10 1302 15788 6e42e 62e43% 6244 
|< STMPLI 001304 15798 4e63% 4e6S* 426 4e83*¢  4esse 4289 
4S90# 61l* 46le* 466e% 4667 4674% 
STMPi2 001306 1580 4e69% 4e70* Y4e71 4e73% 4274 4289% 
4375% 4583% 4593% 4616% 4663" 4676%  Se09* 
STMP13 001310 15818 4351# 4366% 436 4S8l* 44S86*  4S91# 
STMP14 Boi sis 
STMP1S 001314 15838 
STMPe O01eb6 18728 6225% es 
STMP3 001270 15738 6eeb% 6e 
STMP4Y 001272 185748 62e27% 6eSS 
STMPS 001274 15758 
STMP 001276 15768 
STP 001300 15778 
™ = O0000le 13068 1317 3859 38728 3882 38958 3933 
40778 4129 41498 4198 4eebe 8 4302 43238 
STNPWR 043304 8465S 8466 84868 
Mn 001152 15318 8303% 98314 
STPFLG 001157 15358 Bene 8314 
STPS 001150 15308 8301 8314 
STRAP 045320 3533 89648 
STRAPe O4S342 89758 8986 
TRP = Q0001le 89798 8988s s8989e 89908 89918 989928 8994 
TRPAD Bor abu 8969 89868 
STSTM 1004 14928 
STSTNM 001102 15088 3569% 3618% 3719% 3784* 4O10® 4407% 
s84Se 8846 88S1 68S4 
STYPBN= ##eeee U BOs 
STYPOS aH S6 86198 8991 
STYPE 2354 8eSese 888s 8979 8987 
STYPEC O4eS66 8282 8289 8296 83018 #98302 
STYPEX O42634 8307 8309 83128 
STYPOC O434S4 8S608 89 
STYPON 043470 8sS3 8S6es 8990 
STYPOS Q42430 eSSSe 8989 
UNIT O0134e 16008 
SUNITM 001010 149468 
USWR 001354 16078 
SVECT1 001400 l63e8 3595 
SVECTe 001402 16338 
SXTSTR OY461E 8827 % 


39438 


89958 


4432% 


3978 


89968 


5807 


39988 


89978 


6404 


4029 


89988 


8691 


4S80* 
4333% 
5216 


40438 


8726 


3540 
4443 
8817 


4S58S* 
4337 


40S2 
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gSge Tis 00 Pm. 
SM= Seanee U re 7171 7406 7597 7608 7646 7960 8001 8013 8067 8083 8107 
Moca = 043653 gd be g8S60% 98570 860S8 
= HRHEEE LU 8701 
S163 14468 14S08 14SS8 14S78 1467 14688 14708 14728 14738 1479 14808 14828 
SoSs 8 29538 e9s4s 9598 29758 9828 29838 298 29908 30808 30818 
83 30848 30858 30868 0878 3086s osse 30908 30918 30928 93 303948 
iy r UY aiice oH 1558 ape 1638 31668 31698 gir® gics 1808 
198 228 ece7%e 32308 2338 6 S40 S41 SO 444e 
86738 8726 8729 8769 8777 87948  98ssS4 89068 9748s 
.SASTA= HHEEHE U 88sss 8861 
. SX = 001000 14798 1484 
--HIGH QO00226 14618 
. LOW 000224 14608 


CZR6QB0 RK& DR CPT PROG MACY11 30(1046) O2-DEC-77 11:48 PAGE 217 SEQ 0214 


CZR608.P11 O02-DEC-77 10:46 CROSS REFERENCE TABLE -- MACRO NAMES 
KEXIT 1678 6310 
Rocon 14438 
RR 133 &® 3837 4938 4957 $730 S748 S761 5917 $935 S948 5993 6366 6496 6500 6507 
bP}d bP28 bP 43 bPS3 6526 6Se9 6$32 6533 6634 66393 6646 6648 6654 6656 6665S 
6 66 6682 6687 6691 6695 6698 6702 6706 6710 6714 6718 6722 
a4 7 bce aE LA he 747 bcBe pcb 6779 6782 6792 6805S 6807 6824 6841 68S0 
4 8 864 86 303 3 3 
ESCAPE 14438 
GETPRI 14438 
GETSWR 14438 
MSG rt | 3863 aeag® 3884 39338 3935 39788 3980 40298 4031 40S2e8 40S4 41298 4131 41988 
7 re 
NEKTST 14438 3859 3882 3933 3978 4029 40Se 4129 4198 4302 
XTAD 21638 
| NXTAD 21598 
PARMBK 1s §= 2751 2783 
Bop 14438 5824 6 00 949 
PUSH 14438 B57 ger8 Bae! Bee3 Bae4 8929 
P.DORVR le 2815 
REGDEF 1 2439 
REPORT 14438 
| R.ORIV le 7100 
| R. QDRV 1s 
ee P taaee 3871 3834 33942 3997 4042 4076 4148 4225 4322 4431 
SETTR 89798 8988 8989 8990 8991 8994 8395S 8996 8997 
UP 14438 8 3521 
SKIP 14438 
SLASH 14438 
SPAC 14438 
AR 1295 1302 14438 1465 1476 1478 1485S 1501 1589 1S92 3611 3615 3859 3870 3882 
38S3 3933 1 3978 3996 4029 4041 40Se2 4075 4129 4147 338 4224 395 353 
ue ue 4461 33a) Bae 457 328 e5% ugea JaP3 4688 471 471 4730 e 
47 47 4784 4791 4802 480 483 4 4859 6 4885 4890 490) 4918 5006 
at pos v4 5103 sa S142 oa 5198 seuy See4 232 SeS93 fe S$3e1 me 
4 
ofa Beha] «Sade Bee? «| BBB RG Bae? «= 887g «= EOS «BBE CBb72 «8078 BBS? BiG 
6119 61e5 6157 6160 6181 6189 6214 6224 6257 6263 6291 6307 6324 6326 sO 
6356 6370 6379 6479 6489 6536 6594 6602 6964 6968 7007 7009 7041 7043 7071 
7076 7109 7140 7174 7214 7577 7594 76le 7636 7683 7696 7715 7741 7760 7782 
7840 7867 8145S 8158 8201 8237 8317 8327 8345S 8356 8408 8447 8S093 8532 8609 
8676 87e 87 8798 8801 8813 88S6 8913 8958 
SWRSU leSe8 8614438 8635428 
Isée 5ee4 3882 3933 3978 4029 40Se 4129 4198 4302 
TRATRP 89798 


TYPTXT 14438 
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CZR60B.P11 O2-DEC-77 10:46 CROSS REFERENCE TABLE -- MACRO NAMES 
eit eng 
ssc 14998 8§=61538 1$39 1540 1S41 1s4e 1$43 1S44 1545S 1S46 1547 1548 1549 1$S0 1$S1 
1395 13P3 13Pg isss 1556 1SS7 1SS8 1589 1560 1561 1562 1563 1564 1S6S 1S66 
secur leas 1870 1871 1572 1873 1574 1575S 1576 1877 1578 1$79 1S80 1581 1582 1583 
8 
SSNEWT 14438 3859 3882 3933 3978 4029 40Se 4129 4198 4302 
S325! 53738 8988 8989 8990 8991 8994 8995 8996 8997 
SSSETM Ssee 
SS$SKIP 14438 
| -EQUAT 1292 1333 
eos leS9e8 8 8=1307 
- SET 123928 3506 
-SWRHI legee 1320 
-SWRLO 1le39e8 13318 
“rch leSe8 8 1463 
- SAPT 1$908 
-SAPTH leSee 1474 
- SAPTY isase S4 
-SCATC leSee 1444 
HS et Be 
- S0B20 15958 8406 
- SEOP lesee 44e3 
_.-SERRO 1leSe8 8674 
-SPOWE 12928 
_.SRAND leges 8199 
-SREAD leSee 8726 
-SSAVE leSe8 8911 
-SSCOP legee 8811 
-SSIZE 12928 
- SSUP' le3e8 8507 
-STRAP 1le9e8 8956 
STYPD 1eSe8 8607 
STYPE 1leSe8 8235 
STYPO 1eSe8 8530 


. ABS. 055163 000 
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